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The  Combat  Systems  Department  of  the  Naval  Surface  Weapons  Center,  Dahlgren, 
Virginia,  was  tasked  by  the  Shipboard  Intermediate  Range  Combat  System  (SIRCS) 
program  office,  PMS  404-40,  to  develop  a  computer  model  for  use  in  estimating 
SIRCS  life-cycle  costs  (LCCS) . 

The  System  and  Force  Structure  Cost  Analysis  Model  (SAFSCAM)  was  de¬ 
signed  to  meet  this  requirement.  SAFSCAM  development  began  in  September 
1976,  by  the  late  Dr.  Barbara  <7.  Bell,  Combat  Systems  Department  and  Cornelia 
C.  Mundy,  Strategic  Systems  Department.  It  has  been  maintained  and  expanded 
by  Michael  R.  Pabrinkis,  Strategic  Systems  Department,  and  Carolyn  P.  Nelson, 
Combat  Systems  Department  with  direction  from  Alan  R.  Glazman,  Combat  Systems 
Department. 

This  technical  report  is  the  SAFSCAM  User's  Guide.  It  describes  the 
model  in  terms  of  types  of  input  data  required,  input  formats,  and  output 
charts.  Model  documentation  also  includes  a  SAFSCAM  Management  Guide. 

This  report  has  been  reviewed  for  accuracy  by  Alan  R.  Glazman. 
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SUMMARY 


The  System  and  Force  Structure  Cost  Analysis  Model  (SAFSCAM)  is  a  flexible 
computerized  model  that  will  be  used  by  the  Navy  to1  facilitate  weapon  system 
life-cycle  cost  (LCC)  estimates.  SAFSCAM' s  basic  piirpose  is  to  process  and 
display  equipment  and  weapon  LCCs  at  the  level  of  detail  that  will  provide 
government  program  managers  with  the  in-depth  cost  visibility  required  for 
orderly  program  planning  and  decision  making. 

To  date,  the  model  has  generated  weapon  system  LCC  estimates  for  the 
Shipboard  Intermediate  Range  Ccmbat  System  (SIRCS)  and  the  anti-ship  missile 
defense  (ASMD)  programs.  For  these  programs,  the  model  proved  useful  in 
the  following  ways: 

*  Standardization  of  contractor  estimates 

*  Independent  cost  capability 

*  Well-organized  display  of  ship  class  and  fleet  LCC  cost 

*  Concise  display  of  LCC  by  budget  appropriations 

*  Test  the  effects  of  programmatic  changes 

*  Aid  to  performing  top  level  trade-offs  to  system  design 

This  report  will  describe  the  input  and  output  of  SAFSCAM  in  sufficient 
detail  to  allow  the  user  to  employ  the  model  for  cost  estimation,  evaluation, 
and  analysis. 


INTRODUCTION 


BACKGROUND 

SAFSCAM  has  a  basis  in  the  System  LCC  Model  developed  in  1975,  for 
the  ROLAND  program  office  at  the  Missile  Command  (MICOM) ,  Redstone  Arsenal, 
Huntsville,  Alabama.  This  model  was  designed  to  cost  the  ROLAND  program. 

Its  input  and  output  formats  and  internal  logic  were  specific  to  the  costing 
needs  of  the  ROLAND  program;  however,  the  model  contained  many  of  the  features 
needed  in  a  comprehensive  cost  model.  Since  the  ROLAND  model  was  programmed 
in  FORTRAN  IV  on  the  CDC  7600  computer,  and  NSVC  has  a  similar  CDC  6700  computer 
it  was  a  logical  candidate  for  the  SIRCS  program.  The  ROLAND  model  also 
has  the  ability  to  display,  in  one  computer  output,  the  costs  by  cost  break¬ 
down  structure  (CBS)  for  each  equipment  element  in  a  weapon  system.  Thus, 
the  costs  of  a  total  Navy  system  can  be  displayed.  The  model  has  been  modi¬ 
fied  and  expanded  by  the  System's  Cost  and  Simulation  Branch,  Combat  Systems 
Department  to  make  it  a  generalized  LCC  model. 


SAFSCAM  documentation  consists  of  comments  in  the  FORTRAN  coding,  the 
User's  Guide i  and  the  Management  Summary. 

CAPABILITIES 

SAFSCAM' s  basic  capability  is  that  of  processing  and  displaying  equip¬ 
ment  and  weapon  system  LCC  so  that  fast,  flexible,  and  documented  cost  analyses 
can  be  performed.  It  allows  the  user  complete  flexibility  in  the  choice 
of  CBS  elements  to  be  displayed,  the  level  of  detail  to  be  costed,  and  the 

cost  methodology  used  to  estimate  system  LCCs.  The  CBS  is  a  data  input  to 

the  model,  and  it  is  the  same  for  each  equipment  element.  SAFSCAM  has  the 
flexibility  in  the  level  of  detail  at  which  costs  are  estimated  for  any  CBS 
element.  Several  subelements  can  be  costed  separately  and  then  summed  inter¬ 
nally  in  the  model  to  estimate  the  cost  of  a  CBS  element. 

The  model  can  use  throughput  costs  or  costs  developed  from  cost  esti¬ 

mating  relationships  (CERs).*  The  throughput  costs  are  those  developed  ex¬ 
ternal  to  the  model.  CER  forms  are  in  the  program  code  permitting  parameter 
input  to  use  a  CER  for  a  particular  equipment  and  CBS  element  application. 
Learning  curve  theory  is  available  within  the  CER  forms  to  develop  costs 
at  any  production  quantity  from  a  cost  at  another  quantity.  The  production 
quantity  for  each  equipment  element  can  be  calculated  from  input  data.  Costs 
for  each  CBS  element  can  be  assigned  to  budget  appropriations. 

At  present,  SAFSCAM  output  includes  four  major  cost  charts.  The  first 
chart  gives  a  breakdown  by  equipment  of  the  cost  for  each  element  in  the 
CBS.  The  second  set  of  charts  shows  the  LCC  by  equipment  per  ship.  The  third 
chart  gives  the  LCC  summed  over  all  equipment  elements  per  ship  class.  The 
fourth  chart  gives  a  suimnary  of  costs  per  ship  class  by  budget  appropriations. 


MODEL  DESCRIPTION 

SAFSCAM  is  programmed  in  FORTRAN  IV  EXTENDED  with  one  small  COMPASS 
subroutine.  It  is  currently  running  on  the  CDC  6700  under  the  SCOPE  3.4 
operating  system.  There  are  16  subroutines  and  1  function  that  requires  ap¬ 
proximately  150.000  octal  words  of  central  memory.  Execution  time  varies 
from  3  to  300  seconds  (s)  depending  on  the  size  of  the  input.  SAFSCAM  is 
configured  to  consider  43  ship  classes  and  40  different  equipments;  however, 
it  has  been  demonstrated  that  it  can  cost-out  100  equipments  across  9  ship 
classes  with  minor  changes  to  certain  arrays.  It  is  also  possible  to  input 
equipment  at  the  ship  level  and  equipment  components  at  the  equipment  level; 
thus,  causing  the  model  to  cost  many  components  across  several  equipment 


*  A  CER  is  a  linear  or  nonlinear  regression  equation.  It  relates  the  cost 
of  a  product  to  some  measurable  characteristic  such  as  weight,  speed,  range 
(cost-to-noncost) ,  or  with  costs  of  other  items  (cost-to-cost) .  CERs  may 
be  developed  frcm  historical  data. 
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configurations,  Appendix  A  is  a  listing  and  further  description  of  the 
SAFSCAM  subroutines. 

Figure  1  is  a  flow  chart  of  SAFSCAM' s  major  functions.  It  gives  a  broad 
description  of  how  the  model  starts  with  input  data,  processes  this  data 
in  several  ways,  and  generates  four  major  LCC  charts.  This  report  addresses 
SAFSCAM's  input  and  output  in  sections  labeled  accordingly. 


SHIP  LEVEL 
AMO 

EQUIPMENT  LEVEL 
INPUT 


COMPUTE 

QUANTITY  OF  SHIPS 
IN  EACH  CLASS 


THROUGHPUT 

COSTS 


COMPUTE 
FLEET  QUANTITY 
FOR  EACH 

EQUIPMENT  ELEMENT 


EVALUATE 

CER  s  BY  EQUIPMENT 
FOR 

ALL  SHIPS  IN  FLEET 


OUTPUT 
EQUIPMENT 
ELEMENT  LIFE 
CYCLE  COSTS 
FLEET  SUMMARY 


COMPUTE 
CUMULATIVE 
AVERAGE  COSTS 


COMPUTE 

COST  BY  EQUIPMENT 
FOR  ONE  SHIP  IN 
EACH  CLASS 


OUTPUT 

UNIT  SHIP  COSTS 
BY  EQUIPMENT 
ELEMENT 


- 1 

SEPARATE 

LIFE  CYCLE  SHIP  COSTS 

BY  BUOGET  APPROPRIATION 
EQUIPMENT  ELEMENT 
GOVERNMENT  ANO 
CONTRACT 

COMPUTE 
TOTAL  COSTS 
PER  SHIP  CLASS 
OVER  ENTIRE  FLEET 


OUTPUT 
SHIP  CLASS 
COST 
SUMMARY 


/  OUTPUT 

/  LIFE  CYCLE  COSTS 

/  BY  SHIP  CLASS 

/  EQUIPMENT  element 
CONTRACT  OR  GOVERNMENT  i 
ANO  BUDGET  APPROPRIATION  / 


Figure  1.  Major  Functions  of  SAFSCAM 


INPUT 


This  section  of  the  User's  Guide  describes  the  input  requirements  of 
the  model  along  with  the  mechanics  of  the  cost  estimating  methodology.  There 
are  two  basic  levels  of  inputs  needed  for  SAFSCAM:  ship  level  (SL)  and  equip¬ 
ment  level  (EL)  as  shown  in  Figure  2. 

The  SL  inputs  are  those  that  are  independent  of  the  equipment  selected. 
These  inputs  include  varying  types  of  noncost  information  such  as  CBS,  unit 
flyaway  data,  and  installation  schedule.  The  major  portion  of  the  input 
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is  at  the  EL  that  includes  equipment  elements,  quantities  per  ship,  and  equip¬ 
ment  cost  data. 


•  SHIP  LEVEL 

•  COST  BREAKDOWN  STRUCTURE  (CBS) 

•  BUDGET  APPROPRIATION  CODE  BY  CBS  ELEMENT 

•  UNIT  FLYAWAY  DATA 

•  INSTALLATION  SCHEDULE 

•  EQUIPMENT  LEVEL 

•  EQUIPMENT  PER  SHIP  CLASS 

•  EQUIPMENT  COST  DATA 

•  THROUGHPUTS 

•  CER  DATA 


Figure  2.  SAFSCAM  Input  Levels 


The  input  will  be  described  in  the  same  order  as  it  is  read  by  subrou¬ 
tine  INPUPD. 

1.  Title  and  controls 

2.  Phase  (SL) 

3.  CBS  (SL) 

4.  Equipment  elements  per  ship  (EL) 

5.  Equipment  element  cost  data 

a.  Throughput  cost  (EL) 

b.  CER  data  (EL) 

6.  Output  control 

7.  Ship  installation  schedule  (SL) 

8.  Unit  flyaway  data  (SL) 

9 .  Footnotes 

Appendix  B  is  the  input  format  in  sunmary  form  for  easy  use.  The  entire 
input  stream  is  listed  by  the  model  as  output  and  is  given  as  a  sample  run 
in  Appendix  C. 
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TITLE  AND  CONTROLS 


« 


The  first  card  of  the  input  is  the  TITLE  that  identifies  the  case  run. 
Its  contents  are  the  user's  choice.  The  title  can  be  coded  anywhere  in  the 
first  26  columns.  The  second  card,  CONTROLS,  provides  some  of  the  necessary 
controls  for  execution  (see  Table  1) . 


Table  1. 

Format 

for  Title  and 

Controls* 

Card  Types 

Input 

Card  Columns 

Format 

1 

TITLE 

1-26 

2A10,  A< 

2 

NWBS 

1-5 

15 

NPH 

6-10 

15 

IPB (1) 

11-15 

15 

IPB (2) 

16-20 

15 

IPB (3) 

21-25 

15 

*  TITLE  defines  the  case  run. 

NWBS  is  the  number  of  elements  in  the  CBS. 

NPH  defines  the  number  of  life-cycle  phases. 
IPB(l),  IPB(2),  IPB (3)  define  the  CBS  element 
number  at  which  a  page  break  will  occur  in 
the  output  charts. 


PHASE 


The  titles  of  the  LCC  phases,  the  first  element  number  of  the  phases, 
and  ROLLUP  controls  are  defined  on  the  PHASE  cards.  ROLLUP  controls  (NROLL) 
are  the  lowest  cost  levels  for  each  phase  at  which  the  major  LCC  charts  will 
be  printed.  The  CBS  can  be  input  in  great  detail;  however,  the  major  cost 
charts  may  be  desired  at  a  reduced  level.  ROLLUP  controls  together  with 
the  cost  level  print  control  in  the  Output  Control  section  provide  for  this 
reduced  CBS  level  printout.  The  model  allows  up  to  four  LCC  phases  (4  cards) 
as  input  (see  Table  2).  The  standard  breakdown  is  RDT&E,  Investment,  and 
Operations  and  Support. 
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Table  2.  Format  for  Phase* 


Card  Type 

Input 

Card  Columns 

Form< 

3 

I PHASE  (1,  K) 

1-10 

A10 

I PHASE  (2,  K) 

11-20 

A10 

I PH  (K) 

21-25 

15 

NROLL  (K) 

26-30 

15 

*  I PHASE  (1,  K)  and  I PHASE  (2,  K)  define  the  Kth 
phase  in  two  words  (K  takes  on  the  values  1  to 
4  depending  on  the  phase  that  is  being  input) . 

I PH  (K)  identifies  the  first  CBS  element  number 
of  the  Kth  phase . 

NROLL  (K)  defines  the  lowest  cost  element  level 
to  be  printed  in  the  output  cards. 


Figure  3  is  an  example  of  the  first  three  types  of  input  cards. 


TEST  CASE  DATA 

148  4  35  68  108 


RDT&E 

1 

2 

PILOT  PRODUCTION 

36 

3 

FULL  PRODUCTION 

69 

3 

OPERATION  &  SUPPORT 

109 

2 

Figure  3.  Title,  Controls, 

and 

Phases 

COST  BREAKDOWN  STRUCTURE 

The  CBS  defines,  in  detail,  the  elements  of  the  LCC  phases  of  a  program. 
The  user  must  determine  the  elements  to  be  included  in  the  CBS.  The  elements 
would  then  be  structured  into  a  cost  hierarchy  indicating  the  relationship 
of  each  element  to  the  entire  CBS.  An  abbreviated  list  of  CBS  elements  is 
given  in  Table  3.  Some  of  the  elements  in  the  CBS  are  costed  directly  from 
input  data  as  throughput  costs  or  costed  through  the  use  of  CERs.  Costs 
for  other  CBS  elements  are  the  summation  of  costs  for  lower  level  elements. 
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Table  3.  Cost  Breakdown  Structure 


Element 

Appropriation 

Element 

Cost 

No. 

Code 

CBS  Element 

No. 

Level 

(1) 

RDT&E 

RDT&E  phase 

1 

1 

(2) 

Investment  phase 

2 

1 

(3) 

PROC 

Nonrecurring 

3 

2 

(4) 

Recurring 

4 

2 

(5) 

PROC 

Contractor 

5 

3 

(6) 

PROC 

Government 

6 

3 

(7) 

CMN 

Operations  and  support 

phase 

7 

1 

(8) 

Total 

8 

1 

The  inputs 

for  each  CBS  element  are  the  element  number,  the 

budget 

propriation  code 

,  the  element  name,  and  the  cost  level 

(see  Table  4). 

Table  4.  Format  for  CBS* 


Card  Typ< 

as  Input 

Card  Columns 

Format 

4 

SYSTEM 

1-10 

A10 

System  name  (e.g.,  SAFSCAM) 

11-20 

A10 

5 

TPUT 

1-10 

A10 

6 

CBS  element  number 

1-20 

2A10 

Budget  appropriation  code(s) 

21-30 

A10 

CBS  element  name 

31-60 

3A10 

CBS  element  number 

61-70 

A10 

Cost  level 

71-72 

A2 

*  SYSTEM  must  be  the  first  word  of  the  system  name  card. 

System  name  defines  the  name  of  the  particular  system  that  is 
being  costed. 

THJT  is  input  at  this  position  to  act  as  a  signal  to  the  model 
that  a  certain  type  of  input  will  follow;  namely,  the  CBS. 

CBS  element  number  is  a  unique  identifier  used  in  relating  a 
throughput  cost  or  CER  cost  data  to  a  specific  CBS  element.  The 
element  number  is  an  input  in  either  the  throughput  or  CER 
sections  of  the  input  data. 

Budget  appropriation  code  indicates  the  budget  appropriation  to 
which  the  cost  of  a  CBS  element  should  be  allocated.  These  appro¬ 
priations  are  research  development,  test  and  evaluation  (RDT&E) , 


procurement  (PROC) ,  military  construction-Navy  (MCN) ,  military 
personnel- Navy  (MPN) ,  and  operations  and  maintenance-Navy  (CMN) . 
The  PROC  code  may  be  further  broken  down  to  ship  construction- 
Navy  (SCN) ,  weapon  procurement-Navy  (WPN)  and  other  procurement 
Navy  (OFN).  “Hiis  breakdown  gives  greater  flexibility  to  the  bud¬ 
get  chart  allowing  for  each  equipment  on  each  ship  class  to  be 
assigned  a  different  PROC  code.  Input  of  this  breakdown  occurs 
in  the  Equipment  Elements  per  Ship  section.  A  CBS  element  cost 
can  be  assigned  to  a  single  appropriation  such  as  RTO&E  or  divided 
between  two  appropriations.  If  a  CBS  element  cost  is  divided 
between  two  appropriations,  this  is  indicated  by  RD/PR,  PR/MC, 
MP/OM,  etc. 

CBS  element  name  is  a  description  of  what  costs  are  included  for 
that  CBS  element. 

CBS  cost  level  (1-10)  indicates  the  position  of  an  element  rela 
tive  to  the  total  structure  of  the  CBS  hierarchy.  Lower-level 
costs  (indicated  by  a  higher  cost  level  number)  will  be  summed 
to  all  successively  higher  cost  levels.  For  example,  in  Table  3, 
recurring  contractor  and  government  costs  (cost  level  3)  will 
be  summed  to  give  total  recurring  investment  cost  (cost  level  2) . 


Guidelines 

The  following  guidelines  should  be  used  in  developing  the  CBS. 

1.  Card  type  6  is  repeated  for  each  element  in  the  CBS. 

2.  Input  data  may  be  positioned  in  any  of  the  columns  within  the  ap¬ 
propriate  fields.  The  system  nan®  and  CBS  element  name  can  contain 
alphabetic,  numeric,  or  special  characters. 

3.  The  designation  of  the  CBS  element  number  in  columns  1-20  of  card 
type  6  must  begin  with  an  open  parenthesis  and  end  with  a  closed  paren¬ 
thesis.  Blanks  are  allowed  before  and  after  the  element  number  within 
these  parentheses.  For  example,  "(  15)"  is  valid. 

4.  The  order  of  the  CBS  input  will  be  the  order  in  which  the  CBS 
elements  will  be  displayed  in  the  output  charts.  The  CBS  elements  must 
be  in  a  logical  sequence,  so  that  lower-level  costs  will  be  summed  to 
the  proper  higher-level  costs. 

5.  The  CBS  can  have  a  maximum  of  150  elements  including  the  total. 

The  allowable  number  of  CBS  elements  can  be  increased,  if  necessary, 
by  changing  the  record  length  in  the  FORTRAN  coding. 

6.  The  CBS  applies  to  all  equipment  elements.  If  there  is  no  cost 
data  for  a  CBS  element,  a  zero  will  be  shown  in  the  cost  output  charts. 

7.  The  CBS  element  names  can  be  indented  to  indicate  the  cost  hierarchy. 
This  indentation  is  not  required. 
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8.  Each  CBS  element  must  have  an  element  number.  This  number  is  used 
to  relate  cost  data  to  a  CBS  element. 


9.  Each  CBS  element  must  have  a  cost  level  (1-10) .  Lower-level  costs 
(indicated  by  a  higher  cost  level  number)  will  be  summed  to  all  succes¬ 
sively  higher  cost  levels. 

10.  Each  directly  costed  CBS  element  should  have  a  code  or  codes  indi¬ 
cating  the  budget  appropriations  to  which  the  cost  will  be  allocated. 

If  no  code  is  given,  the  cost  will  not  be  included  in  the  LCC  by  the 
budger  appropriations  output  chart.  The  cost  of  a  CBS  element  can  be 
allocated  to  one  budget  appropriation  or  divided  between  two  appropriations. 
The  desired  split  between  appropriations  is  indicated  by  (1)  the  first 

two  letters  of  each  code  separated  by  a  "/"  (e.g.,  RD/CM  indicates  that 
the  cost  will  be  divided  between  the  RDT&E  and  OMN  appropriations)  and 
(2)  the  percentage  of  the  cost  allocated  to  each  appropriation.  These 
percentages  are  designated  in  a  data  statement  in  INPUDD. 

11.  A  CBS  element  can  have  CONTRACTOR  or  GOVERNMENT  as  the  first  word 
of  its  name.  This  indicates  how  the  cost  is  allocated  in  the  LCC  by 
budget  appropriations  output  chart.  If  the  cost  is  a  summation  of  lower- 
level  costs,  all  lower-level  costs  will  be  allocated  appropriately  to 
either  CONTRACTOR  or  GOVERNMENT.  These  lower -level  CBS  elements  should 
not  have  CONTRACTOR  or  GOVERNMENT  as  the  first  word  of  their  names. 

If  a  CBS  element  has  a  budget  appropriation  code,  but  is  not  identified 
as  contractor  or  government,  the  cost  is  added  to  the  contractor  cost 
for  the  particular  appropriation  codes. 


EQUIPMENT  ELEMENTS  PER  SHIP 

The  equipment  elements  to  be  installed  and  operated  on  each  ship  in 
a  class  are  defined  in  this  section  of  input.  This  input  and  the  Ship  In¬ 
stallation  Schedule  will  be  used  to  generate  the  total  operational  and  invest¬ 
ment  equipment  quantities  for  use  in  some  of  the  cost  output  charts.  Table  5 
gives  an  example  of  the  input  for  the  ship  class  name  and  the  name  and  quan¬ 
tities  of  the  equipment  to  be  installed  and  operated  on  each  ship  of  that 
class  (see  Table  6). 


Guidelines 


The  following  guidelines  should  be  observed  for  the  equipment  elements 
per  ship  input. 

1.  The  input  sequence  is  a  card  giving  the  ship  class  name  followed 
by  a  card  for  each  of  the  equipment  elements  on  the  ship  class. 

2.  The  investment  quantity  will  be  less  than  the  operational  quantity 
when  some  of  the  equipment  has  previously  been  installed  on  the  ship. 
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3.  It  is  assumed  that  all  ships  in  a  class  have  the  same  equipment 
and  operational  and  investment  quantities.  If  any  ship  in  a  class  has 
unique  equipment  or  quantities,  the  user  can  give  this  ship  a  unique 
class  name  (e.g.,  HOC-A)  and  list  the  equipment  peculiar  to  that  ship. 

4.  The  maximum  number  of  ship  classes  and  equipment  elements  are: 

43  ship  classes,  29  equipment  elements  per  ship  class,  and  40  unique 
equipment  elements  over  all  ship  classes.  (Coding  changes  may  be  made 
to  alter  this  requirement) . 

5.  The  ship  class  name  is  preceded  by  the  word,  SHIPCLASS  and  the 
equipment  element  name  is  preceded  by  the  word,  EQUIPMENT.  These  words 
are  required.  'Hie  FORTRAN  coding  recognizes  these  words  as  indications 
that  the  following  words  are  the  name  of  a  ship  class  or  equipment 
element.  The  SHIPCLASS  and  EQUIPMENT  cards  (card  types  8  and  9)  are 
repeated  until  all  ship  classes  and  their  equipments  have  been  defined. 

6.  The  ship  class  and  equipment  element  names  from  this  section  of 
input  will  be  used  in  the  titles  of  the  cost  output  charts.  The  names 
should  be  centered  in  the  fields  on  card  types  8  and  9  exactly  as  de¬ 
sired  on  the  output  charts.  For  example,  first  radar  could  be  coded 
on  card  type  9  as  FIRST  and  RADAR.  On  the  output  charts,  this  would 
appear  as  a  two-line  column  heading  FIRST. 

RADAR 

7.  All  ship  class  and  equipment  element  names  are  read  by  the  input 
editor  subroutine  INPUPD  as  strings  of  seven  characters.  Any  alphabetic, 
numeric,  or  special  character  is  valid.  Where  an  equipment  element 

name  is  best  described  by  two  strings  (2  words) ,  each  word  is  read  as 
a  string  of  seven  characters.  This  is  done  to  allow  names  that  will 
not  fit  in  seven  characters  to  be  spread  over  two  fields,  and  later 
used  on  two  lines  in  the  column  headings  of  the  cost  output  charts. 

8.  The  first  six  characters  of  each  ship  class  or  equipment  element 
name  must  be  unique.  This  six-character  string  will  be  used  to  relate 
equipment  elements  per  ship  to  the  equipment  elements'  cost  data.  SAFSCAM 
forms  the  six-character  string  by  inspecting  the  name  fields,  finding 

and  left-justifying  the  first  nonblank  character  and  the  next  five  char¬ 
acters  including  blanks  with  the  provision  that  any  string  of  consecutive 
interior  blanks  is  compressed  into  one  blank. 


Table  5.  Equipment  Elements  per  Ship 


Operational 

Investment 

Procuremei 

Quantity 

Quantity 

Breakout 

Ship  class  A 

1 

1 

OPN 

Equipment  first  radar 

2 

1 

SCN 

Equipment  missile 

20 

0 

WEN 

Equipment  4  gun 

Ship  class  B 

Equipment  first  radar 

1 

1 

OPN 

Equipment  missile 

40 

10 

SCN 

10 


Table  6.  Format  for  Equipment  Elements  per  Ship* 


Input 

Card  Columns 

Format 

7 

NPUT 

1-4 

A4 

8 

SHI  PC  LASS 

1-10 

A10 

First  word  of  ship  class 
name  (e.g.,  CGN)  centered 

11-17 

A7 

Second  word  of  ship  class 
name  (e.g.,  CLASS)  centered 

21-27 

A7 

9 

EQUIPMENT 

1-10 

A10 

First  word  of  equipment 
element  name  (e.g.,  FIRST) 
centered 

11-17 

A7 

Second  word  of  equipment 
Element  name  (e.g.,  RADAR) 
centered 

21-27 

A7 

Operational  quantity  per  ship 

41-45 

A5 

Investment  quantity  per  ship 

51-59 

A9 

SCN,  WFN  or  OPN 

61-63 

A3 

10 

SEND 

1-4 

A4 

*  NPUT  is  placed  on  the  card  preceding  all  of  the  equipment  elements  per 
ship  data  to  indicate  that  this  particular  type  of  data  will  follow. 

SHI  PC  LASS  is  placed  in  front  of  the  actual  name  of  the  ship  class  to 
designate  the  ship  class  name  as  a  storage  key. 

EQUIPMENT  precedes  the  name  of  the  equipment  to  set  n>  the  equip 
ment  name  as  a  storage  key. 

SCN,  WFN,  or  OPN  are  used  to  breakout  the  procurement  costs  into 
SCN,  WFN,  or  OPN. 

$END  indicates  the  end  of  the  equipment  elements  per  ship  data. 
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As  an  example  of  left-justif ication  of  the  first  nonblank  character 
and  compression  of  consecutive  interior  blanks  to  form  a  six-character  string, 
consider  the  two  words  in  the  equipment  element  name:  FIRE  and  CONTROL. 
SAFSCAM  searches  for  the  first  nonblank  character  "F"  and  compresses  the 
two  blanks  following  the  E  to  form  the  left-justified  six-character  string 
FIRE  C. 

An  example  of  invalid  names  is  the  designation  of  two  different  radars 
as  RADAR  ONE  and  RADAR  TWO.  The  first  six  characters  RADAR  are  not  unique. 


EQUIPMENT  ELEMENT  COST  DATA 

Equipment  element  cost  data  may  be  entered  as  throughput  or  CER  data. 
The  method  of  costing  can  be  different  for  each  equipment  element.  Cost 
data  for  each  equipment  element  is  entered  only  once,  even  if  the  equipment 
is  operated  on  more  than  one  ship  class.  The  order  in  which  the  equipment 
element  cost  data  is  entered  is  the  order  in  which  the  column  headings  for 
the  first  two  sets  of  cost  output  charts  (Appendix  C)  will  be  printed.  For 
each  equipment  element,  the  cost  data  can  be  placed  in  the  TFUT  or  CER  sub¬ 
sections.  Throughput  costs  are  entered  in  the  TPUT  subsection?  era  cost 
data  are  entered  in  the  CER  subsection.  These  subsections  can  be  in  any 
order  within  an  equipment  element.  For  example,  the  CER  subsection  can  pre¬ 
cede  the  TPUT  subsection.  SAFSCAM  identifies  the  subsection  by  the  codes 
TPUT  or  CER.  If  there  is  no  cost  data  for  one  of  these  subsections,  the 
code  need  not  be  entered.  For  example,  if  all  CBS  elements  for  FIRST  RADAR 
are  costed  by  CERs,  the  TPUT  subsection  can  be  deleted  (see  Table  7). 


Table  7.  Format  for  Equipment  Element  Cost  Data* 


Card  Type  _ input _  Card  Columns  Format 


11  EQUIPMENT 


1-10  A10 


Equipment  element 

name  11-30  2A10 


*  EQUIPMENT  is  an  identifier  to  indicate  that  the  cost 
data  to  follow  will  be  for  the  equipment  named. 
Equipment  element  name  is  the  actual  name  of  the 
equipment .  It  must  be  left-justified.  The  first  six 
characters  of  the  name  must  correspond  exactly  to  the 
left-justif ied  name  in  the  Equipment  Elements  per  Ship 
section. 


Throughput  Cost 

Throughput  cost  data  are  those  cost  estimates  external  to  SAFSCAM  that 
do  not  require  any  calculation  by  the  model  for  the  first  cost  chart.  Examples 
are  costs  of  representative  systems  and  LCCs  that  are  fixed.  For  each  equip¬ 
ment  element,  only  one  throughput  cost  per  CBS  element  is  allowed  (see  Table  8). 


Table  8.  Format  for  Throughput  Costs* 


Types  Input 

Card  Columns 

Format 

12 

TPUT 

1-4 

A4 

13 

CBS  element  numbers 

1-20 

2A10 

CBS  element  cost 

21-30 

A10 

CBS  element  cost 

31-40 

A10 

CBS  element  cost 

41-50 

A10 

CBS  element  cost 

51-60 

A10 

CBS  element  cost 

61-70 

A10 

CBS  element  cost 

71-80 

A10 

*  TPUT  indicates  that  throughput  costs  are  to  follow. 

CBS  element  numbers  are  the  identifying  number 

of  the  CBS  elements  for  which  costs  are  being  entered. 

CBS  element  costs  are  the  actual  costs  of  the  CBS  element. 
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Guidelines 


1.  Card  type  13  is  repeated  until  all  throughput  costs  have  been  en¬ 
tered. 

2.  Data  can  be  entered  in  any  of  the  columns  within  the  appropriate 
fields. 

3.  The  designation  of  the  CBS  element  numbers  in  columns  1-20  must 
begin  with  an  open  parenthesis  and  end  with  a  closed  parenthesis.  A 
sequence  of  numbers  within  these  parentheses  is  indicated  by  a  dash 
between  the  first  and  last  numbers  in  the  sequence  (e.g.,  (4-5)  and 
(7-10) . 

4.  A  maximum  of  six  costs  can  be  entered  on  a  card. 

5.  All  costs  on  a  card  must  be  for  sequential  CBS  elements  and  correspond 
in  sequence  to  the  CBS  element  numbers  in  columns  1-20.  Examples  are 
given  below  for  CBS  elements  4-5  and  7-10. 

The  throughput  costs  for  CBS  elements  4  and  5  are  5.  and  20.,  respectively. 
The  (4-5)  indicates  that  the  first  cost  in  columns  21-30  will  be  for 
CBS  element  4,  and  the  next  and  last  cost  will  be  for  CBS  element  5. 

6.  An  interruption  in  the  CBS  element  number  sequence  requires  that 
the  next  set  of  throughput  costs  be  entered  on  another  card. 

7.  Comment  cards  can  be  inserted  in  this  subsection  by  entering  an 
in  column  1. 
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CER  Data 


The  cost  of  a  CBS  element  can  be  estimated  by  a  CEB.  These  costs  are 
referred  to  as  CER  data  (Figure  6).  A  set  of  generalized  CER  equations  (Table  9) 
has  been  incorporated  in  the  FORTRAN  coding.  Each  CER  in  Table  9  is  a  general 
equation  containing  no  hard-coded  parameter  values.  The  set  of  CERs  can 
be  modified  or  increased  by  changing  the  coding  in  subroutine  CERCGMP.  In 
Table  9  each  P  represents  an  input  parameter.  This  parameter  could  be  a 
measure able  characteristic  or  a  factor  calculated  fran  a  prior  CER.  A  factor 
can  be  used  in  the  calculation  of  another  factor,  until  all  information  has 
been  generated  to  cost  a  CBS  element  or  subelement.  When  a  particular  cost 
is  defined  by  a  CER,  the  generalized  forms  from  Table  9  that  best  suit  the 
CER  is  chosen.  Only  the  parameters  P(l)  through  P(6)  as  specified  by 
the  cost  data  and  needed  by  the  CER  form  chosen  are  input  as  CER  data. 

Some  of  the  CERs  in  Table  9  contain  the  symbols  "Ql"  or  "Q2n.  These 
represent  the  total  operations  support  quantity  and  investment  quantity, 
respectively,  of  an  equipment  element  over  all  ship  classes.  The  quantities 
are  calculated  by  SAFSCAM  by  multiplying  the  quantity  of  an  equipment  element 
on  each  ship  in  a  class  by  the  number  of  ships  in  that  class  and  then  summing 
over  all  ship  classes  (see  Table  10). 
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Table  9.  CER  Generalized  Forms 

CER  Number  _ CER  Form _ 

1  C  -  P(l)  x  Q2p(2) 

2  C  =  P (1)  x  Q2P<2)  /  P(3)P(4) 

3  C  =  P{1)  x  P(2)p(3)  /  P(4)P(S) 

4  C  »  P(l)  x  ( (Q2  +  P(2))P(35  -  P(2)P<3>) 

5  C  *  P(l)  x((Q2  +  P(2))P(3)  -  P(2)P(3))  /  P(4)P(S) 

6  C  »  P(l)  x  { (P (2)  +  P(3))P(4)  -  P(3)P(4))  /  P(S)P(6) 

7  C  =  P<1)  x  P (2)  x  Q2 

8  C  »  P(l)  x  Cross-referenced  CBS  element  cost 

9  C  =  P(l)  x  P{2)p(3)  x  Q2p(5) 

10  C  =  P  (1)  x  P<2)P(3)  x  P(4)P(5) 

11  C  »  P(l)  x  P(2)P(3)  x  P (4)  x  P(5)  x  P (6) 

12  C  ■  P(l)  x  P (2)  x  P (3)  x  P (4) 

13  C  =  P(l)  x  P(2,  *  P<3)  /  P (4) 

14  C  =  P(l)  x  P (2)  x  P(3)  x  P (4)  x  P(5)  x  P(6> 

15  C  -  P (1)  x  (P (2)  +  P  (3)  +  P  (4)  +  P (5)  +  P(6) ) 

16  C  -  P (1)  x  P (2)  +  P (3)  x  P (4)  +  P (5)  x  P(6) 

17  C  »  P(l)  +  P (2)  x  P (3) )  x  Q2 

18  C  *  P(l)  +  P (2)  x  P (3) )  x  P  (4) 

19  C  =*  P(l)  +  P  (2)  x  P  (3 ) )  x  P  (4)  x  P  (5)  x  P  (6 ) 

20  C  *  P  (1)  +  P  (2)  x  P  (3) )  x  P  (4)  x  P(5)P(6) 

21  C  -  P{1)  x  P (2)  x  P(3)p(4)  x  P(5)P(6) 

22  C  -  P(l)  /  (P (2)  +  P (3)  +  P  (4 ) ) 

23  C  -  P(l)  +  P(2)  ♦  P(3)  +  P(4)  +  P(5)  +  P(6) 

24  C  ■  P(l)  x  Q1P(2) 

25  C  -  P(l)  x  P  (2)  p<3>  x  Qlp<4) 

26  C  -  P(l)  x  P  (2)  x  P(3)  x  Q1 
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Table  10.  Format  for  CER  Data* 


Input 

Card  Columns 

Format 

14 

CER 

1-3 

A3 

15 

Calculation  type 
(F  =  factor,  C  =  CBS  element  or 
subelement) 

6 

A1 

Factor  CBS  element  number 

7-9 

13 

CBS  subelement  number 

(0  =  a  factor  or  no  subelement, 

1-6  =  a  subelement) 

10 

11 

CER  number 

11-15 

15 

CBS  element  cross-reference 
number 

16-19 

14 

CBS  subelement  cross-reference 
number  (0-no  subelement, 

1-6  =■  a  subelement) 

20 

11 

Factor  identification 
(F  ■  factor,  blank  =  value) 

21 

A1 

Parameter  P(l) 

(Factor  number  or  value) 

22-30 

F9.0 

Factor  identification 

31 

A1 

P(2) 

32-40 

F9.0 

Factor  identification 

41 

A1 

P  (3) 

42-50 

F9.0 

Factor  identification 

51 

A1 

P  (4) 

52-60 

F9.0 

Factor  identification 

61 

A1 

P(5) 

62-70 

F9.0 

Factor  identification 

71 

A1 

P  (6) 

72-80 

F9.0 

16 

ECER 

1-4 

A4 

17 

$END 

1-4 

A4 

*  CER  must  precede  the  CER  data  to  indicate  that  CER  cost  data  will 
follow. 


.8 


Calculation  type  -  A  CER  can  calculate  either  a  factor  to  be  used 
as  a  parameter  in  a  succeeding  CER  or  the  cost  of  a  CBS  element  (or 
subelement).  A  factor  is  designated  by  an  "F" ;  a  cost  is  designated 
by  a  "C" . 

Factor  or  CBS  element  number  specifies  either  the  factor  or  the 
line  item  in  the  CBS.  The  factor  number  is  not  related  to  any  CBS 
element.  It  does  not  have  to  be  the  same  as  the  number  of  a  CBS 
element  for  which  it  is  later  used  as  a  parameter . 

CBS  subelement  number  -  A  CBS  line  item  can  be  broken  down  into  a 
subelement,  each  of  which  is  costed  separately.  Up  to  six  subelements 
are  allowed  for  each  CBS  element.  A  subelement  cost  is  indicated 
by  the  numbers  "1"  through  "6".  Subelements  can  be  costed  in  any 
order.  The  costs  for  each  subelement  are  added  to  whatever  cost 
is  in  the  computer  storage  location  for  the  CBS  element.  The  sub¬ 
element  costs  are  added  to  any  throughput  cost  previously  entered 
for  the  CBS  element.  A  "0"  in  this  field  initializes  the  computer 
storage  location  to  zero.  This  is  used  only  when  no  throughput  costs 
have  been  entered  for  this  CBS  element,  and  there  are  no  subelements. 

CER  number  -  The  number  of  the  CER  from  Table  9  that  is  to  be  used 
in  the  calculation  of  this  factor  or  cost. 

CBS  element  cross-reference  number  is  the  identification  of  a  previously 
costed  CBS  element.  It  is  entered  as  ”0",  except  when  CER  8  is  specified. 
CER  8  costs  a  CBS  element  as  a  function  (e.g.,  percent)  of  a  previously 
costed  CBS  element.  CBS  subelement  cross-reference  number  can  be  used 
as  a  cross-reference.  This  field  identifies  the  previously  costed 
subelement.  A  "0"  is  entered  if  the  reference  is  to  the  total  cost 
of  a  CBS  element. 

Parameters  P(l-6)  can  be  either  a  value  to  be  used  directly  in  the 
CER  or  the  number  of  a  factor  whose  value  is  to  be  used  in  the  CER. 

A  factor  is  identified  by  entering  "F"  in  the  first  column  of  the 
parameter  field.  A  blank  in  the  first  column  indicates  that  the 
remainder  of  the  field  contains  a  value  to  be  used  directly  in  the 
CER.  Some  CERs  do  not  require  six  parameters.  If  a  parameter  is 
not  required,  the  field  should  be  left  blank. 

ECER  indicates  the  end  of  CER  data  for  a  particular  equipment. 

SEND  signals  the  end  of  cost  data  input  for  all  equipments. 


Guidelines 


1.  The  maximum  number  of  CER  data  cards  is  150  per  equipment  element. 

2.  Card  type  15  is  repeated  until  all  CER  cost  data  have  been  entered. 
Factors  and  CBS  element  costs  are  calculated  according  to  the  input 
sequence  of  card  type  15' s.  The  sequence  is  at  the  user's  option, 
with  the  following  two  exceptions: 

a.  A  factor  card  must  precede  any  CER  cards  in  which  that  factor 
is  used  as  a  parameter. 


b.  A  CBS  element  card  must  precede  any  CER  cards  in  which  a  cross- 
reference  is  made  to  that  cost. 


3.  The  CER  forms  can  be  adapted  by  setting  some  of  the  parameters  equal 
to  1  or  0.  For  example,  if  the  CER  form,  CER  =  P(l)  x  P(2),  is  desired, 
CER  12  can  be  used  by  setting  P(3)  and  P(4)  equal  to  one.  If  the  CER 
form  CER  =  P(l)  +  P{2)  +  P  (3)  is  desired,  CER  23  can  be  used  by  setting 
P(4),  P{5),  and  P (6 )  equal  to  zero. 

4.  Costs  estimated  by  CERs  can  be  added  to  a  throughput  cost. 

An  example  of  inputting  CER  data  is  given  below.  It  is  for  estimating 
mission  hardware  production  cost  for  the  propulsion  section  of  a  missile. 

The  cummulative  average  unit  cost  (in  thousands  of  dollars)  of  1000  motors 
(CAC  (1000))  is  estimated  by  the  CER: 

CAC (1000)  =  0.066  x  I0,42 

where  I  is  the  total  impulse  in  lb/sec 

The  total  production  cost  could  be  estimated  using  the  learning  curve  theory 
lay  the  CER: 

CTC  =  CAC (1000)  X  Q1+b/1000b 

where 

CTC  *  Cumnulative  total  cost 
Q  *  Production  quantity 
b  =*  learning-curve  exponent 

If  I  =  10,000  lb/sec,  Q  *  2000,  and  b  =  0.152,  then  CTC  =  $5688K.  To  input 
these  as  CER  data,  CER  No.  10  from  Table  9  is  chosen  for  CAC (1000)  and  labeled 
FACTOR  1. 

CER  No.  10  C  =  P(l)  x  P(2)p<3>  x  P(4)p<5) 

where 

P(l)  *  0.066 
P (2)  »  10,000 
P (3)  *  0.42 
P  (4)  *  1. 

P  (5)  *  1. 


FACTOR  1  =  0.066  x  10,0000*42  x  l.1* 

FACTOR  1  =  8.16K 

For  the  CTC,  CER  No.  2  would  be  the  best  choice. 

CER  NO.  2  C  =  P(l)  x  Q2P(2)/P(3)P<4) 

where 

P(l)  =  FACTOR  1 
P  (2)  *  0.848 
P  (3)  =  1000. 

P  (4)  =  0.152 

CTC  =  FACTOR  1  x  2000° * 848  x  1000°* 152 
CTC  =  $5688K 

Q2  would  be  internally  set  to  the  calculated  production  quantity  (2000) . 


OUTPUT  CONTROL 

The  major  cost  output  from  SAFSCAM  consists  of  four  sets  of  charts. 

The  user  selects  which  cost  output  charts  are  to  be  printed  by  the  output 
control  card.  All  cost  calculations  for  these  four  sets  of  charts  are  performed 
and  stored  regardless  of  the  output  control  card.  Setting  the  chart  control 
equal  to  zero  causes  the  particular  chart  to  be  printed.  Any  other  number 
will  suppress  the  printing  (see  Table  11) . 


SHIP  INSTALLATION  SCHEDULE 

The  ship  installation  schedule  gives  by  ship  class,  the  number  of  ships 
per  year,  or  which  equipment  will  be  installed.  It  provides  the  fleet  composite 
to  be  used  in  computing  the  total  operational  and  investment  quantities  over 
all  ship  classes  for  each  equipment  element.  The  maximum  number  of  installa¬ 
tion  years  is  12.  Installation  can  be  spread  over  less  than  12  years  by 
leaving  the  appropriate  fields  blank.  An  example  is  given  in  Table  12, 
and  the  format  is  given  in  Table  13. 
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Table  11.  Format  for  CEl  Data 


Card  Type 


Input 


Card  Columns  Format 


Equipment  LCC  (fleet  summary) 
Chart  5  print  control 
(0  =  print  chart) 

1-3 

13 

Unit  ship  LCC  by  equipment 

Chart  6  print  control 
(0  =  print  chart) 

4-6 

13 

Ship  LCC  suitmary 

Chart  7  print  control 
(0  »  print  chart) 

7-9 

13 

LCC  by  budget  appropriation 
Chart  8  print  control 
(0  »  print  chart) 

10-12 

13 

Cost  level  print  control 

13-15 

13 

(0  =  print  complete  CBS) 


Table  12.  Ship  Installation  Schedule 


Ship  Classes  1985  1986  1987  1988  1989  1990 

DD-963  001000 

OGN  0  0  0  0  0  2 


Guidelines 


1.  Card  type  21  is  entered  for  each  ship  class. 

2.  The  first  six  characters  of  each  ship  class  name  must  be  left- 
justified  and  identical  to  those  in  the  equipment  elements  per  ship 
section  of  input.  Identification  is  made  from  the  unique  first  six 
characters  of  the  ship  class  name. 

3.  The  order  in  which  the  ship  classes  are  entered  does  not  have  to 
correspond  to  the  order  in  the  Equipment  Elements  per  Ship  section. 
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Table  13.  Format  for  Ship  Installation  Schedule* 


Card  Types 

Input 

Card  Columns 

Format 

19 

Ccnment  card 

1-80 

8A10 

20 

NOYRS 

1-5 

15 

21 

Ship  class  name  -  left- 
justified 

1-16 

A6,  4  : 

Number  of  ships  outfitted 
in  the  first  year 

11-15 

15 

Number  of  ships  outfitted 
in  the  twelfth  year 

66-70 

15 

*  Comment  card  allows  the  user  to  insert  a  comment  concerning 
the  input  data.  Its  purpose  is  to  separate  the  ship  installa¬ 
tion  data  from  the  CHE  data  for  quick  proof  checking. 

NOYRS  defines  the  number  of  years  over  which  the  installation 
schedule  will  cover. 


UNIT  FLYAWAY  DATA 

The  last  section  of  ship  level  input  is  the  unit  flyaway  data.  It  con¬ 
sists  of  a  listing  of  the  CBS  element  numbers  whose  costs  are  to  be  summed 
for  the  unit  flyaway  costs.  Flyaway  costs  as  defined  in  DOD  Instruction  5000.28 
are  those  cost  elements  that  are  related  to  the  production  of  a  usable  end 
item  of  military  hardware.  Since  the  number  and  the  arrangement  of  elements 
in  the  CBS  can  vary  to  meet  user  requirements ,  the  numbers  of  the  CBS  elements 
to  be  included  in  unit  flyaway  costs  must  be  provided  as  input  (see  Table  14) . 


Table  14.  Format  for  Unit  Flyaway  Data 


Input 

Card  Columns 

Format 

22 

Comment  card 

1-80 

8A10 

23 

Number  of  CBS  elements  1-5 

Included  in  unit  flyaway  costs 

15 

24 

CBS  element  number 

1-5 

15 

CBS  element  number 

6-10 

15 

CBS  element  number 

11-15 

15 

CBS  element  number 

16-20 

15 

CBS  element  number 

21-25 

15 

CBS  element  number 

26-30 

15 

CBS  element  number 

31-35 

15 

CBS  element  number 

36-40 

15 

CBS  element  number 

41-45 

15 

CBS  element  number 

46-50 

15 

CBS  element  number 

51-55 

15 

CBS  element  number 

56-60 

15 

CBS  element  number 

61-65 

15 

CBS  element  number 

66-70 

15 

CBS  element  number 

71-75 

15 

CBS  element  number 

76-80 

15 

Card  type  25  is  repeated  until  the  list  of  CBS 

element  numbers  is 

complete 

FOOTNOTES 

The  final  section  of  input  to  SAFSCAM  is  the  10  footnote  cards.  The 
user  has  the  option  of  adding  footnotes  to  the  first  three  major  output  charts. 
If  no  footnotes  are  desired,  these  cards  are  left  blank  (see  Table  15). 
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Table  15.  Format  for  Footnotes 


Card  Types  Input  Card  Columns  Format 

25  FNOTES  1-80  8A10 

26  FNOTES  1-40  4A10 

Card  types  25  and  26  are  input  in  pairs  allowing  for  five  footnotes  and  120 
characters  per  footnote. 


OUTPUT 


One  of  the  prime  objectives  of  SAFSCAM  is  to  display  cost  data  in  a 
logical,  traceable,  and  useful  format.  The  program  produces  eight  output 
sections  to  accomplish  this  task  as  follows. 

1.  Secondary  Output 

a.  Input  data  file 

b.  Reformatted  listing  of  the  input  file 

(1)  CBS 

(2)  Equipment  elements  cost  data 

(3)  Ship  installation  schedule 

(4)  Equipment  elements  per  ship 

(5)  CBS  elements  included  in  unit  flyaway  costs 

c.  CIR  evaluation  by  equipment  element 

d.  Equipment  quantities  -  fleet  summary 

2.  Primary  Cost  Charts 

a.  Equipment  element  LCC  -  fleet  summary 

b.  Unit  ship  costs  by  equipment  element 

c.  Ship  class  cost  summary 

d.  LCC  by  budget  appropriations 

Appendix  C  is  a  computer  listing  of  a  sample  run  illustrating  the  secondary 
output  and  the  four  primary  cost  output  charts. 


25 


INPUT  DATA  FILE  AND  REFORMATTED  LISTING 

The  first  output  of  SAFSCAM  is  a  listing  of  the  input  data  file  in  card 
image  form.  This  listing  is  used  in  checking  and  locating  input  errors. 

The  reformatted  input  listing  is  next  and  may  be  used  to  check  whether  the 
program  is  decoding  the  data  properly.  Its  main  purpose,  however,  is  to 
provide  the  input  data  in  an  organized  and  labeled  manner  so  that  it  may 
be  used  as  traceable  backup  for  the  cost  items  in  final  output  charts.  The 
ship  installation  schedule,  equipment  elements  per  ship  chart,  and  the  next 
two  sections  of  the  reformatted  listing  present  a  good  summary  of  the  elements 
of  the  system  being  costed.  Both  charts  are  in  a  format  suitable  for  pub¬ 
lication. 


CER  EVALUATION  BY  EQUIPMENT  ELEMENT 

The  output  in  this  section  gives  the  user  the  immediate  values  of  all 
calculations  performed  in  the  evaluation  of  the  CERs.  The  left  section  of 
the  page  lists  for  each  input  the  CBS  element  number  or  factor  and  the  value 
of  all  parameters  (P1...P6)  that  make  ip  the  CER  (TEMP).  A  factor  must  be 
calculated  prior  to  the  evaluation  of  the  CER  in  which  it  is  used.  The  value 
of  the  factor  is  then  shown  as  a  parameter  in  its  proper  CER.  The  right 
section  of  the  page  displays  the  SUBELS  array.  If  a  particular  CBS  element 
is  composed  of  several  CERs,  each  CER  is  stored  in  SUBEL  1  through  SUBEL  6. 

A  throughout  cost  would  be  stored  in  SUBEL  7.  The  total  cost  is  found  in 
SUBEL  8  and  is  incremented  each  time  a  subelement  is  stored  in  the  array. 

For  a  factor,  no  data  is  stored  in  SUBEL  1-8,  but  the  value  of  the  factor 
is  found  under  the  FACTOR  column. 


EQUIPMENT  QUANTITIES— FLEET  SUMMARY 

Fleet  operational  and  investment  quantities  for  each  equipment  element 
are  given  in  this  section.  The  quantities  are  generated  from  the  ship  installa¬ 
tion  schedule  and  the  equipment  elements  per  ship.  For  each  equipment  element, 
the  quantity  per  ship  is  multiplied  by  the  number  of  ships  in  the  class. 

This  procedure  is  repeated  for  each  ship  class  and  then  summed  over  all  ship 
classes. 


EQUIPMENT  ELEMENT  LCC—  FLEET  SUMiARY 

LCCs  are  calculated  for  each  equipment  element  using  the  fleet  operational 
and  investment  quantities.  These  cost  estimates  from  the  SUBEL  arrays  are 
presented  in  Figure  7.  It  is  the  first  of  the  four  primary  output  charts. 

Up  to  10  columns  can  be  printed  on  a  page.  If  there  is  only  one  column  left 
to  be  printed  on  the  next  page,  SAFSCAM  will  print  nine  columns  of  the  one 
page  and  two  on  the  next  page.  This  rule  also  applies  to  the  next  two  charts 
as  shown  in  Figures  8  and  9. 
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Figure  8.  A  Ship  Class — Unit  Ship  Costs  Equipment  Element 


UNIT  SHIP  COSTS  BY  BQUIPMHJT  ELEMENT 


This  set  of  charts  (Figure  8)  presents  LCCs  by  equipment  elements  for 
one  ship  in  a  particular  ship  class.  The  cost  for  each  equipment  element 
is  determined  by  multiplying  the  unit  cost  of  equipment  by  the  quantity  of 
that  equipment  on  one  ship  in  the  class.  It  is  assumed  that  all  ships  in 
a  class  will  have  the  same  operational  and  investment  quantities.  There 
is  an  output  chart  for  each  ship  class. 


SHIP  CLASS  COST  SUM4AKY 

This  chart  (Figure  9)  gives  the  total  cost  over  all  equipment  elements 
for  each  ship  class  and  the  fleet  LCCs.  LCC  for  each  ship  are  calculated 
by  multiplying  the  total  column  from  the  previous  set  of  charts  (Figure  8) 
by  the  number  of  ships  in  that  class  from  the  Ship  Installation  Schedule. 


LCCs  BY  BUDGET  APPROPRIATIONS 

The  budget  appropriation  chart  (Figure  10)  gives  costs  by  ship  class, 
equipment  element,  contractor  versus  government,  and  budget  appropriations. 
ICCs  from  Figure  8  are  separated  according  to  those  four  criteria.  For  each 
ship  class,  the  costs  in  each  category  are  multiplied  by  the  number  of  ships 
in  the  class. 
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APPENDIX  A 


DESCRIPTION  AND  LISTING  OF  SAFSCAM  SUBROUTINES 


This  appendix  is  a  brief  description  and  listing  of  the  subroutines 
and  functions  that  make  up  SAFSCAM.  Figure  A-l  shows  the  relationship  of 
the  routines. 


Figure  A-l.  Relationship  of  Routines 

SLCCM  is  the  main  program  that  directs  and  controls  all  the  operations. 

It  calls  all  the  primary  subroutines  as  indicated  in  Figure  A-l. 

INPUPD  reads  and  lists  the  input  stream.  It  also  sets  up  and  initializes 
mass  storage  files  for  later  use.  The  input  is  temporarily  stored  on  a  mass 
storage  file. 

DATAOP  proofprints  and  reformats  the  input  stream  and  stores  it  back 
on  mass  storage  files.  DATAOP  also  prints  the  reformatted  backup  cost  data. 

CCMPCMP  computes  the  LCC  per  equipment  independent  of  ship  class  for 
all  units  of  any  class  and  stores  the  data  on  mass  storage  files. 

CERCCMP  decodes  the  proper  CER  forms  and  computes  the  CBS  element  cost 
and  stores  them  in  the  row  array. 


WBSCUT  sets  up  the  cost  data  and  formats  for  printing  in  OUTl. 

WBSTOT  computes  the  equipment  element  cost  totals  for  each  ship.  This 
routine  is  only  called  when  the  unit  ship  costs  by  equipment  element  chart 
is  not  used,  but  the  equipment  element  cost  totals  are  needed  for  other  charts. 

ROLCNT  is  called  when  ROLLUP  control  is  selected  and  new  line  counts 
are  needed  for  printing. 

BUDGET  divides  the  costs  for  each  equipment  on  each  ship  class  into 
budget  appropriation  codes  and  government  or  contractor  costs. 

BUDGOP  sets  up  the  budget  cost  data  for  printing. 

APCELM  sets  up  the  IWORD  array  for  printing.  The  r-’ORD  array  contains 
the  appropriation  code,  CBS  number,  and  the  cost  element  names. 

ROLLUP  executes  the  ROLLUP  procedure  for  automatically  summing  the  CBS 
row  entries. 

OUTl  directs  the  output  printing  for  the  first  three  primary  cost  charts. 

MOVE  2  is  a  machine  language  (COMPASS)  routine  that  is  used  to  move 
characters  of  input  words  into  two  specific  locations  of  another  word.  It 
is  used  in  decoding  and  testing  input  words. 

HEAD  is  used  to  print  the  title  and  data  on  each  page  of  output. 

REFMT  is  used  to  reformat  and  shift  data. 

I COMP  is  a  function  used  to  determine  the  position  of  a  given  equipment 
element  in  an  array  of  ships  and  equipments. 
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FACTOM  ) 

• 

A  FACTOR  IS  A  PRECURSOR  OF  CNE  CR  PC*L 

CEnVLS 

5d 

c 

CERS. 

CERVLS 

59 

c 

CERVLS 

to 

c 

CtnVLS 

tl 

CONMCN  /CfckVLS/ 

c 

£I.CT,  I FONC  (15  0)  i  IP.OWIU  (150  »  ,  IAOOIlSUl, 

CERVLS 

62 

c 

ICLP.NC(1S0>,  IVPEFNOIlSO  .UREFAD  (15i)>  , 

CURVES 

1 3 

z 

IFSTORE  (6.15iM,PSSTOS£(6,150),ICER  (  2001  , 

cervls 

E4 

c 

SUocUS(«,lSa»,  FACTORST15J) 

CEP  VLS 

65 

INTECEF  C£PCT 

CEPVLS 

EE 

c 

cepvls 

t7 

c 

♦ 

POLUPCT  COHHCN  . . . . . . 

Cc  ■*  VLS 

to 

c 

CEP  VLS 

*9 

c 

CM*  FTS 

2 

c 

CHANTS  (CONTROL )  CCMMOU 

CPARTS 

3 

c 

CHARTS 

4 

c 

CPAPTS 

5 

c 

CHRTCNT  CONTAINS 

THE  MAJOR  OUTPUT  CHART  CONTROLS 

CHARTS 

t 

c 

0 

* 

GENERATE  CHART 

CHARTS 

7 

c 

1 

• 

NO  GENERATION  OF  CHART 

CHARTS 

& 

c 

CHARTS 

9 

c 

CHRTCNT  tl ) 

- 

IF  EQUAL  TO  Z  -  CALLS  WBSOUTU)  F CR  EQUIPMENT 

CHARTS 

lu 

c 

tLENENT  LIFE  CYCLE  COSTS  -  FLEET  SUMMARY 

CHA  RTS 

It 

c 

CHRTCNT \Z) 

- 

IF  EQUAL  TO  u  -  CALLS  WBSGUT 12 )  FOR  UNIT 

CHARTS 

JZ 

c 

SHIP  COSTS  BY  EQUIFMENT  ELEMENT 

CHARTS 

13 

c 

- 

IF  NE.  TO  J  -  CALLS  weSTOT  BECAUSE 

CHARTS 

14 

c 

W0SOUT<2)  WAS  NCT  CALLEO 

CPA  RTS 

15 

c 

CHRTCNT  <3 ) 

- 

IF  EQUAL  TO  C  -  CALLS  W6SOUTUI  FOR  SHIP 

CHARTS 

16 

c 

CLASS  SUMMARY 

CHA  RTS 

17 

c 

CHRTCH  <4  1 

- 

IF  EQUAL  TO  0  -  CALLS  8LOCOF  FO«  LIFE 

CHARTS 

Id 

c 

CYCLE  COSTS  eY  BUDGET  APPROPRIATIONS 

CHARTS 

19 

c 

CHRTCNT <5> 

- 

IF  NE.  TC  J  -  CALLS  RCLCNT  FlR  CUTFUT  6Y 

CHARTS 

(0 

c 

ROLL-UP  NUMBtR 

CHARTS 

21 

c 

CHRTCNT  (6  » 

“ 

IF  EQUAL  TO  0  -  LISTS  THE  SUtitLS  ARRAY 

CHA  ITS 

22 

c 

FOR  ENT I F  6  CBS  FOh  PROOFING 

CHA  RTS 

23 

c 

CPARTS 

2h 

c 

CHA  RTS 

25 

COHHCN  /  CHARTS 

/  CPPTCN  T  <15  1 

CPA  RTS 

2b 

INTEGER  CHRTCNT 

CHARTS 

27 

c 

S  IE C  M 

39 

c 

ROW  ARRAY  IS  eaUIVAttHCtO  TO  T  ME  **  AP  A  Y**  ARRAY  ANO  USEC  AS  A  COLUMN  TO » 

SLCCM 

43 

c 

-  RE AO  EBS  COMPONENT 

UNIT  COSTS  FPOM  MASS  STOPAGfc  UNIT  J, 

SlCCM 

41 

c 

-  COMPUTE  TCTPL  FLEET  t  B  S  UNIT  COSTS  AND  WRITE  T  ME  N  CN  NS  UNIT  Ji). 

SlCCM 

42 

c 

SLCCM 

43 

OlNfKSICF  «t  OH  {  1 ) 

SLCCM 

44 
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PR  Gb«  Am 

SLCCM  ?<./7n  0M  =  <:  FT  fl  *  ■  6**  3  3 

u7 /3 1/7  9 

ZSm  i3«  **1 

C 

SLCCM 

45 

FQUI VAlE  NCi.  (  ><(j  M  •  AM  AY  ti«l)  ) 

SLCCM 

46 

c 

SLCCM 

L7 

c 

initialize  ao *  subKouriNt. 

slum 

46 

2«« 

c 

*HEAO*  SUBROUTINE.  CAUSES  A  NfW  PAGE  AN C  PUIS  TITLc  ANC  SYSTEM. 

SLCCM 

49 

c 

NONE  AT  ice  OF  T  Ml  UtH  PAGE. 

SICCM 

50 

c 

SICCM 

51 

c 

SLCCM 

52 

CALL  HtACl 

SLCCM 

£3 

2  9F 

c 

SLCCM 

54 

c 

SLCCM 

£5 

c 

CALL  **IKFUPQ‘*  SUttMQU'flMt  TOl 

SLCCM 

5b 

c 

-  OcFXH  CCNTANTb 

SLCCM 

£7 

c 

-  INITIALIZE  INOlX,  LENGTH  AND  COUNTER  VARIABLES 

SLCCM 

£8 

3  . 

c 

-  Sc  1*Lf  AnO  INITIALIZE  RtCORO  SPACES  UN  *ASS  STOMG;  UNITS 

SLlCM 

£9 

c 

2  *  3  *  4 »  9 t  An  C  1C 

SLCCM 

EG 

c 

-  Kr  AO  IN  T  ML  INI  I  *  t  INPUT  FILc  Anu  STOFF  IT  FIECE-McAL  ON 

SLCCM 

1 1 

c 

THE  AFFPOPMATc  MS  UNIT.  INPUT  STREAM  CONSISTS  OFl 

SL  C  C  M 

£2 

c 

SLCCM 

£3 

K& 

c 

-  SHIP  LEVEL  INPUT 

SLCCM 

£4 

c 

-  cost  breakdown  structure  icesi 

SLCCM 

ES 

c 

-  9UCGE  T  APPROPRIATION  COOL  BY  CBS  NO. 

SLCCM 

Cb 

c 

-  UNIT  PLY  AWAY  DATA 

SLCCr 

£7 

c 

-  SHIP  installation  schedule 

SLCCM 

€8 

u: 

c 

*  EQUIPMENT  LEVEL  INPUT 

SLCCM 

£ 9 

c 

-  equipment  pek  ship  class 

SLCCM 

70 

c 

-  LQUIPMENl  COST  DATA 

SLCCM 

71 

c 

-  THROUGHPUT  cost 

SLCCM 

72 

c 

-  CER  OATA 

SLCCM 

73 

315 

c 

SLCCM 

74 

c 

SLCCM 

75 

c 

SLCCM 

76 

CALL  INPUPO 

SLLCM 

77 

c 

SLCCM 

78 

32v 

c 

>*•*  SLCCM 

79 

c 

INITIALIZE  TOTAL  KQTVE  AGGREGATE  COST,  TOTAL  INVESTMENT 

SICCM 

80 

c 

AGGREGATE  COSTS  ANO  TOTAL  AGGREGATE  RIP-OUT  COSTS  FCP 

SLCCM 

81 

c 

OLTERMInI hG  was  FOR  1  PRIME  AO  1  NAVY# 

SLCCM 

82 

ROTOT  *  0. 

SLCCM 

83 

3  25 

TOTINV  *  0. 

SLCCM 

(4 

TOTRIP  s  ). 

SLCCM 

t5 

SMiskO  s  a. 

SLCCM 

86 

c 

SICCM 

£7 

c 

LOMPUTt  The  SHIP  CLASS  SUMS  OVER  ALL  INPCl  YEANS 

SLCLM 

tb 

i  ?G 

c 

(count  tpe  numbers  of  unit  ships  Pop  each  ship  class-subsystem 

SLLCM 

89 

c 

FCft  EACH  YEAR  In  Tht  SHIP  INSTALLATION  TAELE  ) 

SLCCM 

SG 

c 

SLCCM 

51 

00  10  I«1,NOSU0 

SLCLM 

52 

SHIPSUMI)  s  0 

SICCM 

53 

»  it 

DO  10  11*2.7 

SLCCM 

54 

SMIPSUMIJ  S  SMIPSUM(I)  ♦  LINSTB  (I,I1> 

SLLCM 

55 

10  CONTINIE 

SLCCM 

56 

c 

SLCCM 

57 

c 

COMPLT«  TMi  FLct  T  U7E 

SLCCM 

56 

J4C 

c 

SLCCM 

59 

FLEET!  *  j 

SLCCM 

llj 

00  11  1 1 ' 1 , NOS  Ufa 

SLCCM 

lul 
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2  45 


35  C 


35f 


36i 


365 


370 


J  75 


JPC 


39L 


3  95 


FLEET?  =  FlEtT?  ♦  SHiPSUMtII)  SLC CM 

11  CONTlNUC  SLCCM 

C  SUCH 

C  C Ait  “OAT ALP"  TO  PPOtF-PRlNT  T  Ht  INPUT  DATA  STFFAH  SICCH 

C  ri  f  A  0  AND  S  TC*f  l  ON  MASS  STORAGE  UNITS  BY  "INFUPO",  SiCCM 

C  SLCCK 

C  SUCH 

CAit  OATAOP  SlCLM 

C  SICCM 

C  . . SUCH 

C  CUMPUtt  wBS  AND  tBS  SiCCM 

C  SLCCr 

NCE  R  *  i  SLCCM 

NOT  =  IfiSC(l)  *  3  SLCCM 

C  SLCCM 

C  QO-LOOP  45  *  MASTER  LOUP  TO  COMPUTE  UNIT  COSTS  SLCCM 

C  FCR  EACH  EQUIPMENT  ACROSS  COST  eREAKOOWN  STRICTURE  SLCCM 

C  SLCCM 

00  45  Jt*l,ICCTK  SLCCM. 

19  *  ll  SICCM 

EQUI  *  ICE* (NCEK)  SLCCM 

QCMPTU1)  =  0  SLCCM 

0CMPT2  (III  *  0.  SLCCM 

C  SICCM 

C  SUM  QUANT  1 1 1  cS  OF  EQUIPMENT  OVER  ALL  SHIP  CLASSES  SUCH 

C  SLCCM 

00  40  1*1  *NCT • 3  S  ICCM 

I0Y1  *  (1*21  /  3  SLLCM 

IF<C5TABlE<I*1 ).NE,£CUI)  GO  TO  40  SLCCM 

C  SLCCM 

C  FOR  EACH  "CCMP"  FOUNC  IN  "CSTA  ELE"  •  MAKE  CERTAIN  THE  SAME  "COMP"  SiCCM 

C  FGP  EACH  "EQUIP"  FOUND  IN  THE  "C3T  ABLE"*  MAKE  CERTAIN  THE  SAME  “tCUIf“  SLCCM. 

C  IS  OEPLOYtC  CN  A  SHIP  CLASS  IN  THE  "SINSTB"  SLCCK 

C  SLCCM 

DO  20  13*1, NOSUB  SLCCM 

IF  (  CSTABUU)  .  EQ,  SINST0U3«1)  )  GO  TO  30  SiCCM 

20  CONTINUE  SLCCM 

C  SICCM 

C  ERROR  MESSAGE  -  SHIP  C LASS/"EQClP"  COMBO  F*CM  "CSTABIE"  SUCM 

C  FAIlt.O  PROOF  TtST  IN  "SlNSTE"  SLCCm 

C  SULK 

WRITE  (6,21)  CSTA0LEU)  SiCCM 

stop  "cstaelc  l  sinstb  sum  ll**ss  names  oc  not  compare"  slccm 

21  FORMAT  (  IMJ,  *SH I P  •,  A6,  *  IS  NC  T  IN  THE  SHIP  INSTALLATION*  SLCCM 

1  •  SCHtOULf •  )  SLCCM 

C  SLCCM 

C  SUM  EQUIPMENT  #OEPLOYMt.NT  •  (0  K  S)  QUANTITIES  INTO  THE  "CCMPT"  SLoCM 

C  ARRAY  (QQUAN  l  Q)  SLCCM 

C  SUH  EQUIPMENT  'MANUf  AC  TUKE/lNS  TALL  *  (INVESTMENT)  QUANTITES  INTO  SLCCM 

C  THE  "OCMPT2"  ARRAY  (QCUAN2  L  02)  SiCCM 

C  SLLCM 

30  CONT1NLE  SLCCM 

QCMPT(Il)  =  QCMMHID  ♦  SHlPiUM(I3l  •  LSTABLE(X»2)  SLcCK 

XMPT21I1)  *  QCMPT2U1)  ♦  SHIFSUMU3)  *  CST  ABE  L 1 1  EY  3)  SLCCM 

41)  CONTINL6  SlcCM 

C  SlLC M 

C  CALL  "COMFCMF-  (AN C  "Cc.*CMP")  10  GET  LNIT  EQUIPMENT  CCSTS  SUCM 
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115 
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llo 
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120 
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123 

124 

125 

1 26 
127 
I2d 

125 

126 
131 
122 

123 

124 

125 

126 

127 

128 
139 
Uu 

141 

142 

143 
1U 
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146 

147 

148 

149 
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151 

152 

153 

154 

155 

156 

157 

158 
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23.53 

4  3D 

C 

FROM  1PLTS  AN 0  NFUTS  (FACTORS  l  CDS!  iSTIMATING  PE  LATIOHSMPSI  , 

S  LLCP 

1‘V 

C 

AND  IC  FEkFGKP  T  I  Me -f  HAS  I  NO  AS  NECtbSAFY. 

SlC(  H 

1  <0 

C 

SLCCH 

1  (1 

C 

SLCCM 

1  12 

C 

sllCM 

1(3 

4(.i« 

CALL  CCMPChP  (  15  ,  lULrittiCER  *Z)  •  ICE  R  INC  E  *»♦  1  > » GCHPT  (ID  ,CCMPT2Un> 

SLCCH 

1(4 

C 

SLCCM 

its 

C 

•  «* 

SLCCM 

1  lb 

NCER  S  NCck  ♦  3 

SLCCM 

ur 

45 

CONT  INLfc 

SLCCH 

ltd 

4ic 

c 

SLCCM 

it* 

c 

SECOND  call  CF  ••DattuP"  SUtiPTb  fitJFTS  EOF  tACF  SHIP  CLAES, 

SLCCH 

l  <«* 

c 

T  Hf 

UNIT  SUP  UtFLOTHEtIT  Alio  MFG  >1  NS  T  ALL  EQUIFNENT  DUAI.TITILS 

SLCCH 

1  7 1 

c 

SLCCH 

1  i2 

c 

««« 

SLCCH 

1  13 

ms 

c 

SLLCH 

1  <4 

CALL  CATOPl 

SLLC  H 

ns 

c 

SLCCM 

1  16 

c 

♦  *# 

SLCCH 

1  17 

c 

SLLCH 

1  19 

42l 

c 

GROck  THt  SHIP  SUMMATIONS  IN  FRCPER  OROER  FCR  PRINT 

SLLCH 

179 

c 

USAGE  ANQ  SETUP  STORAGE  CF  THE  TOTAL  NUHEER  CF  CCHPONENTS 

SLCCH 

t  to 

c 

PER  SHIP  CLASS.  THIS  LAST  OUTPUT  IS  STORED  CN  UNIT  10  TO  BE 

SLCCH 

la 

c 

UStQ  er  THt  9UCGET  ROUTINE. 

SLCCH 

1(2 

c 

SLCCM 

1(3 

4  2? 

NM8SM1  *  Nwes  -  i 

SLCCH 

1(4 

IPH2  *  IFM2I 

SLCCH 

1(5 

IPHL  a  IPH(NFH) 

SLCCM 

Kb 

INC  *  3 

SLCLH 

1(7 

K  »  3 

S  ICCM 

ltfl 

4  3C 

KB  Y  3  *  K/3 

SLCCH 

1C9 

c 

SLCCM 

I9j 

c 

MAJOR  OO-LCCF  49  TO  READ  EQUIPHEN  T  UNIT  COSTS  FROM  MS  3  INTO  -NON” 

SLCCH 

m 

c 

MULTIPLY  UNIT  COSTS  bY  APPROPRIATE  QUANTITY  <Q  OR  02),  ANC 

SLCCM 

1  c.2 

c 

PLACE  RESULTS  BACK  IN  -ROM”  ARRAY  I  WRITE  RESULTS  ON  PS  UNIT  1C, 

siccr 

153 

4 

c 

SLCCH 

134 

c 

THIS  00- LOOP  CONFUTE  S  FOR  EACH  SHIP  CLASS  THE  SLHNASY  COST 

scccr 

135 

c 

OF 

EACH  EQUIFNLNT  VS.  CBS  ELEMENTS 

SLCCM 

156 

c 

SLCCM 

1S7 

00  45  ISL8S»l,N0'UB 

SLCCH 

I'd 

4-0 

c 

S  ICCM 

159 

c 

SETUP  UNlTlu  STQ^AGC  INCLX 

SLCCH 

2 1  ii 

c 

SLCCH 

2-1 

inoxic  «  icoMp(isues) 

SLCCH 

2  C  2 

c 

SLLCH 

2C3 

445 

c 

SET 

UP  BEGINNING  A  No  ENDING  INDICES  FCR  CBS  0  AT  A  Re.  AO  PRCM  MS  3 

SLCCH 

2  C4 

c 

SLCCH 

2C5 

IBEG  *  INOX  1 j ♦ 3  ♦  1 

SLLCH 

2  Gb 

IENQ  *  I BEG  ♦  (NOCJHP  (ISU6S)  -  1)  •  3 

SLCCH 

2'j7 

c 

SLCCH 

2(6 

*.5„ 

c 

OROER  SHIP  SUMMATIONS  ANO  EkROfi  CHECKI  LOCK  FCR  F7RSF  APPEARANCE 

SllCM 

2C9 

c 

OP 

SHIP  CLASS  NAMc.  IN  ”SINSTB”;  IF  FOUND ,  CONTINUE;  IF  NCT  FOUNC 

SLCCH 

2 1  j 

c 

AeORTt 

SLCCM 

211 

c 

FOR  ALL  TRIPLETS  (SHIP  ClASS/fcCUlPHC NT/MS  3  INOEXI  STORED  IN  THt 

SUCH 

212 

c 

-  1RCC”  ARRAY  *  THE  SHIP  CLASS  NAME  MILL  fit  CONSTANT  FOR  ALL  TRlFLtTS 

SLCCH 

213 

4*6 

c 

OF 

this  -isu8"  ship  class  between  “ibeg  -  z~  and  -ienc- 

SLCCH 

214 

c 

SLCCM 

215 
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SHIP  NM  =  IkEl l IbfcG-2) 

SLCCM 

216 

CO  4  6  11*1, NOS Lb 

SUCH 

217 

IONF  =  11 

SLuCM 

21b 

4C  j 

IF  (  SHIFKM  .cQ.  SlNSTQUltll  )  GC  TO  -.7 

SLCCM 

215 

46  CONTINUE 

SLCCM 

22w 

WRITE  <6.*c5)  ISUBS,ShIFNM  .NOSIR  .  IONfe 

SLCCM 

221 

-» E5  FOFMAT  («lFOr.  SHIP  CLASS*.  13, •  -  *,A?.*  $£ APC PING • , I  I , 

SLCCM 

222 

C  •  iUGSYSTEMS  IN  "SINSTE”  AFr.AY.  "SLCCM”  STOPPEC  * 

» 

SLLCH 

223 

•4  65 

C  •WITH  StASLM-lOOP  IN  CE  X4  »  1  3  •  •  BUT  NC  MATCH! • ) 

SLCCM 

2  24 

STOP  “IN  SLCCNI  OO-LJOP  *»to  I  SNIP  NAMt  NOT  FOUND  I K  SINSI3 

ARRAY” 

SLCCM 

225 

47  CONT In  cc 

SLCCM 

226 

SHIPSM  (I  SUbS  )  =  SHIPSUM  (lONfc‘1 

SLCCM 

227 

C 

SLCCM 

220 

47, 

c 

MULTIPLY  unit  COSTS  OF  THC  SHIP'S  cQUIPMENT  by  THE  SHIP  EQUIP 

- 

SLCCM 

229 

c 

MENT  TABLE  VALUtS  AND  GT OKI  ON  MASS  STufcAG;.  UNIT  1) 

SLCCM 

234 

c 

SLCCM 

231 

c 

THE  VAklCUS  “IF"  TESTS  bETWILN  Htfc  t  AKC  “A9"  ASSURE  FRCFER  MULTIPLIERS 

S  LC  C  M 

232 

c 

ANC  SUM  M  A  T 1 CN  S  ACCOKOlNG  TO  THE  NUMBER  OF  PHASE  BREAKS  IK  THE 

”CBS”I 

SLCCM 

223 

4  75 

c 

-  rG)  1  P HA SL  =  SIMPLE  CBS 

SLCCM 

2  34 

c 

-  EG!  2  PHASLS  =  ASNO  IROTJ.E,  INVESTMENT! 

SLCCM 

2  25 

c 

-  EG)  3  PMAStS  =  SINUS  (RUTlt,  INVESTMENT,  OLS) 

SLCCM 

2  36 

c 

IN  ANY  EVEM  ■  TML  "TO  8t  MANUFACTURLO"  OLANTITY  IS  USED  FCR  " 

RGT1E- 

SLCCM 

217 

c 

ANO  -INVESTMENT-  PHASES!  THE  “BEPLOYlO"  QUANTITY  IS  USED  FCR 

“ulS”. 

SLCCM 

2  7c 

4  '*- 

c 

SLCCM 

239 

00  kb  J»I0cG, I  END, INC 

SLCCM 

2  Mi 

CALL  R  c  A  CMS  (  3,  ROW,  NWbS,  IRfc'ClJI  ) 

SLCCM 

241 

Q  *  CSIABLtLK) 

SLCCM 

2  42 

02  *  CSTA0ELU0Y3I 

SLCCM 

2AJ 

•*  “5 

K  *  K  ♦  3 

SLCCM 

244 

KBY3  =  K/3 

S  1C  CM 

2  A5 

DO  475  1*1  »NW  BSM 1 

SLCCM 

2  46 

IF  (KFM.EC.2I  GO  TU  474 

SLCCM 

247 

IF  (I.lT.IPML)  GO  TO  A7 , 

SLCCM 

2  40 

491 

ROW  m  =  ROWd  )  •  Q 

SLCCM 

249 

GO  TC  475 

SLCCM 

2  SO 

474  RO W ( I )  s  RCW(I)  •  02 

SLCCM 

251 

475  CONTINUE 

S  ICC M 

252 

R0WINW6SI  =  KOW(l)  ♦  ROW ( I  H  H2  )  ♦  ROW (IPHL  ) 

SLCCM 

25  3 

495 

IF  (IPH2.EQ.IPHL)  ROW (NWBS)  s  RCW(NWBS)  -  ROW(IPHL) 

SLCCM 

254 

CALL  MMTMS  I  1U .  kOW,  NWBS,  INOXtO  ) 

SLCCM 

255 

INOX  10  *  1*40X1  G  ♦  1 

SLCCM 

256 

48  CONTINLE 

SLCCM 

257 

49  CONTINUE 

SLCCM 

258 

5  ..  1 

c 

SLCCM 

2  59 

c 

PRINT  A  CHART  OF  TGTAL  EQUIPMENT  COSTS  VS.  CBS  ELEMFNTS 

SLCCM 

2(0 

c 

ACCOROIKG  TO  UMKTCNTm  INOICATOR  (J«PKlNf  CHART) 

SLCCM 

2(1 

c 

SLCCM 

2(2 

IF (CHR1CKT (1) • Nt. V)  GC  TO  50 

SLCCM 

2(3 

**:5 

c 

SLCCM 

2  (h 

c 

CHRTCNT(l)  ANC  WBSOUT(l)  CUNT  R  CL  THE  PRIMING  AND 

SLCCM 

2(5 

c 

COMPUTATIONS  FOR  T  Hi  FIkST  MAJOR  OUTPUT  CHART  - 

SLCCM 

2(6 

c 

LIFE  CYCLL  COSTS  -  FLEtT  SUMMAAY 

S  ICCM 

2(7 

c 

• 

SLCCM 

2(8 

Sill 

c 

SLCCM 

2(9 

CALL  WFSOCTIil 

SLCCM 

210 

c 

SLCCM 

2  U 

c 

SlCCM. 

272 

A-ll 


P k CGfiArt 

SLCCM  7«/7*.  OH=2  FTN 

•  c  ♦  <«  iJ 

-7/31/75 

2J.SJ 

50  CONTINUE 

SLCCM 

2  73 

515 

C 

SLCCM 

274 

C 

COMPOTE  oUO&iTAbY  COCt  COSTS 

SLCCM 

2  <5 

c 

SLCCM 

2  <6 

00  55  1*1, NO$UB 

SLCCM 

277 

NCOMF  s  KCGMFU) 

SUCK 

2  18 

DO  55  J*  1  • NCUM P 

SLCCM 

27* 

c 

SLCCM 

2  tG 

c 

SLCCM 

211 

CALL  BLCCET  i  I,  J  ) 

SLUK 

2 1 2 

c 

SLCCM 

2(3 

52? 

c 

SLCCr 

2  tf 

55  CONTINUE 

SlCCM 

2(5 

c 

SLCCM 

2  lb 

c 

CHtCK  CHRTCNTC5)  TU  SEF  If  OUTPUT  BY  POLL-UP  N  LM6£r- 

SLCCM 

2t7 

c 

is  requlstug*  if  yes  then  call  rclcnt  rc  g*.t 

T Hfc  COST 

siccp 

2td 

5  50 

c 

ELEMENT  COUNT  AMO  VALUES  FOB  OUTPUT 

SLCCM 

2  (H 

c 

0  -  FULL  OUTPUT(NO),  1  -  SELECTED  CUTPLTIYESI 

SlCCM 

2‘u 

c 

SLCCM 

2*1 

c 

SLCCM 

2S2 

IF(CKRTCM(5I.Nt.ai  CALL  *<  CLCN  T 

scccn 

2*3 

5  55 

c 

SLCCM 

2*4 

c 

SLCCM 

2*5 

c 

CHECK  CHRTCMCEI  fO  Stt  IF  UNIT  Ship  COST  (IT  EQUIFHEnT 

SLCCM 

2Sb 

c 

IS  REQUIAEC.  (SECOND  MAJOR  OUTPUT  CHART) 

SLCLM 

2S7 

c 

0  -  YES,  X  -  NO 

SLCCM 

2*6 

5-,. 

c 

SLCCK 

259 

IFICHMCNKE)  .EO.OI  60  TO  7 0 

SLCCM 

JCb 

c 

SLCCM 

301 

c 

IF  CHRTGM  (2)  .NE.O  ,  H8S0UT12I  IS  NCT  CALLEC!  1-OWEVtR, 

SLCCM. 

3uZ 

c 

UNIT  SHIP  CALCULATIONS  ARE  NEE CEU  THUS  WBSTOT  IS  CALLED 

SLCCM 

3CJ 

545 

c 

TO  PREFORM  THE  Ni  CESS  ARY  COMPUTATIONS. 

SLCCM 

3C4 

c 

SLCCM 

JC5 

CALL  H6ST0T 

SLCCM 

3  Gb 

c 

SlCCr 

3 17 

c 

SLCCM 

306 

5er 

GO  TC  75 

SlCCM 

3 19 

c 

• 

SLCCM 

1 10 

c 

GMRTCNTC2I  ANO  WQSOUT ( 2 )  CONTROL  T HE  PRINTING  ANO 

SLCCM 

311 

c 

COMPUTATION  FOR  T  Ht  StCONO  MAJOR  OUTFUT  CHART  - 

SLCCM 

312 

c 

UNIT  SHIP  COST  BY  EQUIPMENT 

SLCCM 

313 

555 

c 

SLCCM 

314 

70  CONTINUE 

SLCCM 

315 

c 

SLCCM 

3  lb 

c 

SLCCM 

317 

CALL  WeSOUT (2  J 

SLCCM 

318 

58C 

c 

SLCCM 

319 

c 

S  ICCM 

320 

c 

SLCCM 

m 

75  CONTINUE 

SlCCM 

322 

c 

S  ICCM 

3<3 

565 

c 

TEST  C  HP  T  IN  T  1 3 )  TO  SEE  IF  SHIP  SUMMARY  CHARTS  ARE  TO 

SLCCM 

324 

c 

0 1  GENERA Tt  0 

SLCCM 

325 

c 

0  -  YES,  1  -  NO 

SLCCM 

326 

c 

SLCCM 

327 

IF  (CPP  TCNT  <31. Nt.  J)  GO  TO  83 

SUCM 

326 

5  /  G 

c 

SLCCM 

3  29 
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C  CHSCNTI3)  £  N  C  hOSOUTU)  CONTROL  Tht  PRINTING  AllG  SLCCH  320 

C  CCHPUTATIOFS  FtK  T  Ht  TtiHC  HAJCP  OUTPUT  CHAU  -  SLCCH  321 

C  SHIP  CLASS  COST  SUHNASY  SICCP.  322 

c  . SLCCH  333 

57c  C  SLCCH  334 

CALL  H t SCUT <3 1  SLCCH  325 

C  SLCCH  326 

c  . StCrr  327 

c  SlCCH  3  34 

5  *.  80  CONTINLE  SLCCH  339 

C  SLCCH  3  4C 

C  TtST  CHftT  CM  <4  J  TO  St  I  IF  SUOGtTAFY  CODl  COST  CHART  IS  SLCCH  341 

C  TC  di  Gf.HcRATtO  SlCCH  342 

C  0  -  Y£S,  1  -  NO  SLLCM  >43 

ShT  C  SLCCH.  344 

IF<CMUCNT(4).Nt.3l  GC  TO  60  SllCM  345 

. . SLCCH  346 

C  SLCCH  347 

CALL  8LCGCP  SLCCH  >48 

*°C  C  SlCCH  349 

C  . SLCCH  360 

60  CONTINLL  SLCCH  351 

£NO  SLCCH  362 
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1 

subroutine  aujot  t 

(  IS,  It  ) 

6  LlG  t  T 

2 

C 

SYST 

2 

NAMl  S  C  L  M  h  C  is 

c 

S  YST 

4 

c 

c 

NNSYS 

- 

.«AME  of  the  SYSTEM 

SYST 

5 

c 

N0SU8 

- 

TOTAL  NUMBER  of  SMIPCLASS6S  CONSIC2REO 

SYST 

6 

c 

nmsub ( 

,  ) 

- 

name  OF  THt  SHIPCLASS  IK  THO  WUKOS 

S  YST 

7 

c 

NOCCMF ( 

> 

- 

In JE  X  NUMBER  fur  EQUIPMENTS  (COMPONENTS) 

S  1ST 

8 

c 

(KUNNING  total  FOP  EQUIPMENTS) 

SYST 

9 

r 

c 

NHCCHf  4 

.  ,  ) 

- 

N«MES  OP  EQUIPMENT  (2  HCl.CG)  FCR  TITLES 

SYi  T 

lu 

c 

IN  wBSOUT  (INOLYLC  BY  EQUIPMENT  NUMBER 

S  YST 

11 

c 

AND  SHIP  CL  ASS  NLMPtk ) 

SYST 

12 

c 

NAMtSl ( 

•  ) 

- 

NAMtS  uF  EQUIPMENT (2  WORDS,  7  CPAS$  EACH) 

SYST  . 

li 

c 

FOM  tQUiPMENT  QUANTITIES  TABLE  -  FLEET 

SYS  T 

14 

16 

c 

SUMMARY 

SYST 

15 

c 

t  QU I 

- 

PP^JtNT  tQUlFMENT  (BEING  FRCCESStQ) 

iYST 

lb 

c 

S H I  F  NM 

- 

PRESENT  SHIPCLASS  ( 8  c.  I N  G  PROCESSED) 

SYST 

17 

c 

SYST 

10 

c 

SYST 

IS 

-> 

COHHCN  / 

NAHt  S 

/ 

UPSYS.  NJSLBt  NMSU6I2 .W3I ,  NCCOrF(t3l, 

SYST 

2d 

1 

NMCOMP  4  2, 

lu  j , m3)  , NAME  SC (1u0,2  ), ECU  I, SMl FKM 

SYST 

21 

INTEGER 

tCUl.SMlPNM 

S  Y  S  T 

22 

c  • 

••••flisc  4  MISCELLANEOUS  )  COMMON 

SYST 

Z3 

c 

SYST 

24 

1C 

c 

NAP 

- 

COUNT  OF  OIFFEkENT  A PPR CP RI A TI GK  COCES 

SYST 

25 

c 

APPRO 4 

> 

- 

aPPROPPIATIOK  code  names 

S  'ST 

2b 

c 

SPCL(  , 

) 

- 

Ft  RCL  NT  AGES  FOR  CES  c L f  MENT  COST  SPLITS 

SYST 

27 

c 

HPM 

- 

COUNT  OF  THE  LIFE  CYCLE  PHAScS 

SYST 

26 

c 

IPH  4  1 

- 

F1KST  CBS  ClfMEM  MJMBL  R  OF  tiO  FMASt 

SYST 

29 

U 

c 

IFB  4  ) 

- 

LoS  LLEMcNT  NUMEcft  F Ok  PAGE  eREAKS 

SYST 

20 

c 

(LAST  CBS  NUMBER  FOR  THE  PAGE) 

SYST 

31 

c 

iPMise  ( 

.  ) 

- 

HUES  OF  C8S  PEASES 

SYST 

22 

c 

ELE6TZ 

- 

FLctT  (SYSTEM)  SIZE 

SYST 

33 

c 

NROLl 1 

) 

- 

LOwlST  CCST  cLlMENT  LtVtl  TC  BL  PRINTED 

SYST 

24 

ll 

c 

(LOWEST  LEVEL  TO  Bt  ROLLEO  UP  WITHIN  PHASE) 

SYST 

35 

c 

ROTCT 

- 

TOTAL  ROTIE  COST 

SYST 

26 

c 

TOTINV 

- 

total  invest  rent  cost  minus  total  rifout 

SYST 

37 

c 

t  ot  ft i f 

- 

total  RIFOUT  COST 

SYST 

28 

c 

SMISPC 

- 

MISSILE  FOTIE  bOST 

SYST 

39 

-z 

n 

NOFLY 

- 

NUMBtR  OF  CBS  t L  EMt NTS  TO  BE  INCLUCEC  IN 

SYST 

4U 

c 

flyaway  costs 

SYST 

ftl 

c 

IFLYFCM4  1 

- 

CBS  ELEMENT  NUMeER  FOR  FLYAWAY  COSTS 

S  YST 

*■2 

r 

NOYRS 

- 

NUMBER  OF  YtAkS  IN  SHIP  INSTALLATION  TABLE 

S  'ST 

43 

c 

I Y  E  Aft  S 

- 

YEARS  COVERfcC  BY  TmE  SHIP  INSTALLATICN  TABLE 

SYST 

44 

46 

c 

IYRS 

- 

NUM BCR  OF  YEARS  IN  SHIP  INSTALLATICN  TABLE 

SYST 

45 

c 

PLUS  ONE  (COLUMNS  F04  POINTING  ShIP/INST  TABLE) 

SYST 

4b 

c 

FNOTt  S  4 

i  ) 

- 

FCCTNuTES  F  C  ft  FUST  T  WG  MAJC*  OLTFuT  CMAFTS 

SYST 

47 

L 

SYST 

46 

CONNCN  / 

HI  SC  / 

N4 P, AFPkCC  7) , SFC 143,6,21, KPP, I PH  U)  ,IFB  <3  >  , 

SYST 

49 

1 

1 

IPHASt  42 , 

*.)  ,  FLft  T  Z  .NRGLL  (4)  ,POTO  T,  TOT  IN  V  ,  f  OTft  IP  , 

SYST 

5G 

2 

SMI Sk  G 

, NOFLY , IFlVkOM 4  25  ) »NUtft  S, I Yt  APS (1 2) , IfRS, 

SYST 

51 

3 

FNGTES 

45, 

12) 

SYST 

52 

INTEGER 

APPRO, SFLL 

, FLt  t  T  Z 

SYST 

53 

c 

SYST 

54 

m. 

COhhcn  / 

a  LOG  / 

TO  TC  4  7  » 2  ) ,  TUTS  44,2, 7),  LENR9,  I P ftOCJO 4 1 25 i ) 

eucc 

2 

c 

etcc 

3 

( 

MS  2 

2 
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ilitf-  jUT  I  he  BUDGET 


[ 


C 

•  « 

MS2 

3 

c 

MS2 

4 

60 

c 

FS2 

5 

c 

LENF  -  MASS  STORAGE  UNITS  CCMMCN  pvElORC 

LdNGT  H 

MS2 

6 

c 

(TYPICALLY  1F0) 

FS  2 

7 

c 

NWBS  -  NU.18CR  OF  ELEMENTS  In  T  ht  CeS  (FAX  i50> 

WS2 

6 

c 

ICCTfi  -  NUMBER  OF  EQUIPMENTS  IN 

THE  r  CUIPPcM 

FS  2 

9 

fii 

c 

ELSFENTs  TAEifc 

FS  2 

\j 

c 

L 15  0  -  (150  WOS  CSI  RECORD  LENGTH  OF  7  APR  AYS 

*S  2 

U 

c 

IN  THE  "CEfiVlS"  COMMCN 

FSi 

12 

c 

LB3G  -  <SJI  HOSTS)  FECQ«D  LcNGTH  OF  2  ARRAYS 

F.s  2 

13 

c 

IN  THE  “CtNVLS"  COMMON 

FS  C 

14 

n 

c 

FS2 

15 

COMHCN  /  MS2  /  lENh,NwaS,ICCTR »  L  150  »  L  19(i 

MS  2 

16 

c 

PS  2 

17 

c 

MS2 

16 

c 

FS  2 

19 

fb 

c 

NFC  T 

2 

c* 

♦  •« 

NFC  T 

3 

c 

NPUT 

*♦ 

c 

VARIOUS  CTPES  ASSAYS  ARE  ECUIVALENCEO  TO  ThE  ' 

“ARAY**  ARRAY  AS  IM 

NFL  1 

5 

c 

NFCT 

6 

*  c 

c 

• 

SLCCM  l  ROW  =  ARAY (1 y 1) 

NfUT 

7 

c 

- 

BUOGET  »  CG  =  ARAY(l,2) 

NFCT 

6 

c 

- 

INPUPC  l  IOkEC  =  ARAY ( 1 ,1) 

NPLT 

9 

c 

- 

COHPCFPl  SOW  =  ARAY ( l , l) 

NPCT 

10 

c 

- 

APCEtM  1  IHAY  a  AWAY  11,1) 

NFC  1 

11 

c 

NFCT 

12 

COHHCN  /  NPUT  /  ARAY(15Q,2) 

NPUT 

11 

c 

NFC  1 

14 

DIMENSION  APSAVI  15J,2> ,  CG  11)  ,  COLI150) 

0UCGET 

7 

c 

eucGti 

0 

°Q 

EQUI VALENCE  (ARAY  <1*21 , CG ) 

EUCCET 

9 

c 

BUG GET 

10 

INTEGfh  CHUR, APS  <V  .CG.APINOX 

euc  GET 

11 

INTEGEF  FC ALL 

BUCGET 

12 

c 

EUGtT 

13 

9C 

c 

AFINOX  -  INDEX  ON  FILE  3  FCR  BEGDNING 

LOCATION 

FCR  TEMPORARY 

BUOGET 

14 

c 

STORAGE  OF  APSAV(1,1)  -  1ST  PART  APPRO 

EUC  G  ET 

15 

c 

APS  A V ( 1  *  2 )  -  2ND  PART  APPRO 

EUCCET 

16 

G 

CG  1  *  contractor 

EICGET 

17 

c 

2  *  GOVCRNMtNT 

6UC  GET 

lfl 

1 1'*. 

OATA  AFlNOX  /  216  / 

eCCGET 

19 

OATA  F  C  ALL  /J/ 

eULGET 

<Q 

IF  (FCAEL.tO.l)  GO  TO  22J 

ELL  CET 

<1 

FCALL  -  1 

EUC  GET 

22 

KK  =  1 

BUCGET 

<3 

1  ;5 

c* 

RE  A  C  ANO  jTUu.6  APPRO  ANO  GOV/CCNT 

BUCGET 

24 

00  200  1=1,5 

eUDGET 

25 

CALL  REACKS  (3  ,  A  F A  Y ,  L£NR,I ) 

ECCCtT 

26 

NPP  =  LtNR/5 

BCCGET 

27 

DO  2  00  J=1,NPP. 

BUCGET 

26 

1  U 

INOX  s  (I-1I*NFK*J 

EUCGET 

29 

IF  (INCX.GT.NW0S  I  GO  TO  21 C 

euCGET 

30 

INOEX  =  J*5-4 

BLUET 

31 

IFLAG  =  1 

BUOGET 

32 

II  =  l 

ECCCFT 

33 
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'» 

11'  14(1  CHAR  a  1.F 

caul  =  ijM 
00  HI  KaH  ,  10 

CALL  HCVE  (ACAYI INUEX) ,K,CnAR, 1, 1| 

If  (CHAR.  EC.  1H/.OR.CHAP  .i_Q.  1H  I  GO  10  120 
t2.  no  cONtiNtt 

12i)  IF  IK. to. ID  00  TO  1<S 

CALI.  MCVc  (Ai  ATIINLEXl  ,11,  f  QOJ  .l.K-11) 

If  I  (K-II1.GT.2I  GO  TO  1 3  J 
00  125  Lai, HAP 

125  CALL  HCVE  ( At-Pi,U< L  1  ,  l  .CHAR  ,i  ,X- II  1 

IF(ChAI  .Nl.EOUI)  GO  TO  126 
EOUI  a  fiffn0  (L  ) 

GO  TQ  14  1 

126  IF<eCUI.K£.2FPh)  GO  TO  125 
1  H  GC  TO  14  1 

125  CONTINUE 
GO  TC  145 
130  CONTINLE 

00  1  35  L  *  1 ,  NAP 

135  IF  (AFFKCai.EC.LQUD  GO  TQ  140 

IF(sQUI.NE.4HPRuC)  GO  TO  135 
GO  TO  141 
135  CONTINLE 
GO  TO  145 

14C  140  APSAVONCX.IFLAGI  *  L 

GO  TO  142 

141  APSAVdNOX.IFLAGI  a  2 

142  CONTINUE 

IF  (IFIAG.EQ.21  GO  TO  150 

146  II  a  KYI 

IFLAG  a  2 
GO  TO  HI) 

145  APSAVIJNOX, IFLAG1  a  0 
C*  GET  GOV/CONI  INGICATOK 

15C  150  CONTINUE 

IFLAG  =  l 
Kao 

INDEX  a  INOEX  *  1 
00  l?G  Lai, 10 

156  CAU  HCVE  <ARA  T  (  INLt XI  ,  L,  C  HA*  t  1 , 1 1 

IF  (CHAN.  £0.  IN  I  Gu  TO  (170.1901,  IFLAG 
K  a  ft  1 
IFLAG  a  2 

CALL  HCVE  ICHAk , 1 ,tOUl,K, 1> 

IE.  IF  (K.ca.ldl  GO  TO  195 

170  CONTINCE 

180  IF  (EOLI.EQ. Ill  HC  UNTRACT  OR  I  XK  =  1 
IF  (FOL  !.?Q, IlIHGUVtRNrtNT  I  KK  a  2 
CG(INOX)  *  KK 

IFF  2C3  CONTINUE 

21)  CONTINUE 

CALL  HUTKL  (  3,  AFSAVd.ll.  NW6S,  A  FINDX  1 
CALL  HAITI'S  (  3,  APSAV(1,2I,  NKBS,  APINDX*1  1 
CALL  W»IIHS  (  1,  CG  ,  N48S,  APINDX  *2  1 

17.  GO  TC  24a 

C*  * 
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eiCCET 

eiCGtT 

eucGtr 

ElCGET 

eccGfc'T 

etccu 

EUCGET 

euc git 

eUGIT 
8UCGET 
£  VJC  G  E  T 

eucctT 

ELCGET 
9UCGET 
eucctT 
EUl  GET 

euccet 

BUCGcT 
eUCGET 
EUC  GET 
ecCGcT 
EUCGcT 

euccet 

fiUCET 
EUCCET 
eUCGET 
etCCET 
EUGfcT 
8UCGCT 
EtC  GET 
BUCGET 
BfCCET 

eucctr 
euc  GET 
EUGU 
EUDGET 
EtLGET 
EtCGCT 
0UCGET 
EtC  G  tT 
EUuGE  T 
BUGfcT 
EUCGET 
etCGtT 
EUGET 
EUCGET 
EUCGcT 
EUCGET 
EtCGtT 
8UCGET 

eucctt 

eUGl  T 
euc  ctT 

etcttT 

fiUCGtT 

EtCCET 

QUCGlT 
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euoc-t  T 
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C-»  1  =  2 


FIN 


-  ’  /  i  1  /  *  T 


CONTINUE 

cUC';t  T 

CALL  PiAtj»*b  |  3,  AK5AV  ll»i  >t  NNfcS,  AHMj*  ) 

cCL^cT 

CALL  NtAiHC  4  ?»  AeL«V<l,2>t  NKfiCt  A  F I  ;:L  X  ♦  l  » 

*-  U  L  G  1  T 

CALL  »  AOPj  4  CG  .  I<hf  j  »  A  F  I  nb  X  ♦  ?  ) 

5  LC C  r  T 

i  -  IL  (Mh C I  S  > ♦  IL*1 

t  U  u  C  u  T 
tiLLCM 

IhrK.  .u  M  h/I  Y  <  /Z  LGEETtiA  TTONS.  UMT 

9  HiU 

GLlCJ  t 

S  TO?-'  .  Tut  TUTC  f  L  T  ALS  Uilro  AM  Ihi  :  X 

F  H  G  M 

PLCCLT 

C/S  ClMijINATIuM 

sUCGlT 

CALI  filACKL  4  ct  Tote,  LuN  9,  I  > 

ELL  Cc  T 

00  ?s:  J3lv9b 

FLCCt r 

TO  1  S  4  J  )  =  - 

3UCGc  T 

CALL  r.ACPS  4  1...  LOL.  MW6  S »  1  ) 

EUCLlT 

KK  s  • 

Ell C£ t 

IX  =  1 

r  1 J  l  C  r  T 

00  3  tO  Jilt  MW jL 

HuCCcT 

I1K  =  1 

6LCCLT 

00  3*tU  JJ*1*NPh 

g  c  l  c  t  r 

IPK  =  1  J-IPH4  JJ)  )  *  1I2K 

ELCCcT 

IF  (I£K.-Q.J)  KK  =  KK ♦ 1 

eUCGfc T 

L  s  C  G  4  J ) 

ELLCfcT 

K  3  AP‘_AV  (  J  »  1 ) 

GU't  r 

IF  ( K« 'G. J)  GO  TJ  <L  ) 

ECCCET 

IF (K.r  C*  2)  *  =  I fKCCUC (I) 

E(JL  G  c  T 

COL  J  *  COL  t  i> 

euLC^r 

IF  (  J.  *  Q.SPCH  l.il)  1  COL  J  =  CCL  4  J l #LPCL (  2  » 1 1 )  / 1  ‘  )• 

CLCCt  T 

totc<k,d  =  IuTl(K»LI  ♦  COL  J 

gucctr 

TOTS 4KK, ClKJ  3  TOrjIKK.LtK)  ♦  COLJ 

EUCCIT 

IF  ( J. f ctSPCL 4  it U  1  >  GO  TO  36 C 

E  L  l  (*  t  T 

K  =  A  F  5  A  V  4  J  t  2 1 

SUCot T 

IF  (K.E  C.2)  K  =  I FWCLOO ( II 

ELlGcT 

COlJ  =  CCl  (  i)  *LPlU3,  II)/1  J. 
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SLGliOL'TINE  INFUPC  7L//1.  u(  T  =  2  FT(I 

23.53 

c 

IktCIlT  -  THt  RUANItX  SUM  UF  THE  TOTAL  NUMOIw  OF  UMOOl 

Shi  FINS 

10 

£  K 

c 

SHJPCLASS/SQLIFftNT  COMEIhAJIOF  IN  ThE 

Shi  FUS 

11 

c 

EQUIPMtNT  LEVEL  INPUT 

SHIPINS 

12 

c 

IR£C(2,5,o,  -  T«c  NAME  Of  THt  SHIP  CLAjS 

shi  ms 

13 

c 

11 , ETC) 

SHI  HNS 

14 

c 

IT!EC<2.6.9  -  THt  NAHt  OF  THt  r.OUIPMc.NT 

SHIPINS 

15 

2  3! 

c 

12, ETC) 

SHI  HNS 

16 

c 

IREC  t  w  »7  *13  -  INDEX  FOP  MASS  STOKAut  UNIT  2.  AN  INIlGER 

SHI  FINS 

i? 

c 

13, ETC)  NUMBER  BEGINNING  A  1-  ANO  I NCF  EVENTING  0V 

Shi f INS 

16 

c 

£  TO  FOPM  16 ,21-,  22, 2-,  ETC.  THIS  INDEX  IL 

SHiFINS 

19 

c 

IH-  STARTING  LOCATION  OF  A  RECORD  (LEnGTHI 

Shi F INS 

20 

2**C 

c 

"TIMES  HOROS“I  ON  NASS  STORAGE  3  WHICH 

SHI  FINS 

21 

f. 

contains  the  unit  costs  of  the  equipments 

SHIP  INS 

22 

c 

UN  A  UNIT  jh IP  (COMPLTEC  0Y  SUBROUTINE 

SHl F INS 

23 

c 

CUMPCMP) , 

Shi  FINS 

2h 

c 

SHI  FINS 

25 

2«5 

COMMON  /  MAwRAY  /  IREC  t  3  ?5  u> 

SHiFINS 

26 

c 

SHI (INS 

27 

C  SHI  FINS  (SHIP  SUMMATION  A NO  INSTALLATION  TABLE!  COMMON  ••••♦ 

SHI (INS 

26 

C 

SHl FINS 

29 

c 

SHIFSLM (  1  -  CONTAINS  THt  TOTAL  NUMBER  UF  UNIT  SHIPS  FOR 

SHIFINS 

2w 

25C 

c 

tACH  SHIP  CLASS  FOUNG  9T  INSPECTION  CF 

shuns 

21 

c 

THE  SHIP  INSTALLATION  TABLE 

SHIPINS 

32 

c 

SINSTET  ,1  -  THE  SHIP  OEPLOYH t N T/INS T AL L ATI C N  SCHEOOLt 

Shi  FINS 

23 

c 

TA3LL.  FOR  EACH  SHIP  CLASSl 

shuns 

34 

c 

S1NSTB (X t  1 1  -  SHIP  CLASS  N Am F 

SHI  FINS 

35 

2  55 

c 

SINSTBCX, 2-7)  -  The  YEAhLY  NEMeERS  OF 

SHIPINS 

26 

c 

UNIT  SHIPS  OF  THIS  CLASS  TO  ei_ 

SH  F  INS 

27 

c 

OEPLOYEC/INSTALlEO 

SHIFINS 

36 

c 

SHIPSM  )  -  the  TOTAL  NUMBER  OF  UNIT  SHIPS  FOB  EACH 

SMI (INS 

29 

c 

SHIP  CLASS.  IT  IS  THt  SAME  COUNT  AS 

SHI  FINS 

4U 

2€f 

c 

SHIP  SUM,  HOWlVc.fi,  IT  IS  DEFINED  IN  / 

SUFINS 

41 

c 

SPECIFIC  QRUER  AFTER  tk KOR -CMEC « INC  IN 

SrtKINS 

42 

c 

SICCM'S  NfcSTEO  CQ-LGOPS  which 

ShiPINS 

43 

c 

ut T  tP MINE  THt  TOTAL  COSTS  at  SHIP  CLASS 

SHIFINS 

4«* 

c 

SHF  INS 

45 

2« 

COMMON  /  SHIPINS  /  SH I P  SUM  (42),  S  INS  Td  (43  »  7 )  «  :>HlFSh<4j) 

SHi FINS 

46 

INTEGE  H  SHIPSUN  SIN3TB,  SMIFSM 

SHI  FINS 

4  7 

OIMENSION  IQKEC ( 2 ) 

INPLPC 

14 

c**  * 

SETUP  INDEX  ARRAYS,  MS  INDEX  LENGTHS,  AND  MS  RECORD  LENGTHS 

INFUPC 

15 

c  ••  • 

INFUFO 

16 

2  ;c 

01 ME  NS  JO  N  1X21221) , IX J  (221), IX- <22 11 

INF  LP  C 

17 

Cl  MENS  ION  IX6(SC1),IXS(1251),IX1U(13C1) 

INF  tf  C 

16 

• 

01 ME NS  I C  F  1N?<5) 

INFLPC 

19 

OIMFWSICN  FS<6),HS(6> 

INF  LFC 

2U 

INTEGER  FS 

INFLPC 

21 

2  ?! 

DIME  NS  IC  N  NM  ( 2  ) 

INF  LHC 

22 

EOUIVALENCi  (A.?AY,  IORECI 

INFUPO 

23 

INTEGE)  CHAR, SHI f, SAVE 

INFUPC 

£** 

INTEGER  SNANtv  CHARI,  CHAP  2 

U  f  UF  C 

25 

INTEGc  P  CcP  END  ,L  FOKSI  ,R0WI  L ,  AO  0  ID ,  CE  fc'NO ,  X  REFNC  ,X  R  £F  AC.CERCTX6 

INF  L  F  C 

26 

2*L 

OATA  I*S/1/.  IXWdS/2/,  IXS0/7  /  ,  IXSS/17/,  IXSSD/lJ/,  LENW/15  J/ 

INFIFC 

27 

OATA  L ! NF  /  22o  /,  CHA*  /  10 H  / 

INFUPC 

28 

OATA  LWES/S/,  ISO/ld/,  LSC/2/ 

INF (PC 

29 

c 

INFUFO 

30 

c 

MASK  TO  GET  THt  FIRST  6  CHARACTERS  CF  EITHER'  THE 

INPLPC 

31 

2r! 

c 

SHIP  ClAuS  UR  C.QUIFM £N T  NAMES 

INFLPC 

22 

A- 26 


5  LX?  OUT 

in:  INFIjPC  i<./7,  (>*-<!  Fill  i.£»iJ5 

-7/3  1/79 

23*53' 

DATA  MASK  /  77  77  77  7/777  7  a- «S  l*J  >16  / 

IN F  LP  C 

33 

DATA  MASK*  Z777777  77  777777  o  0  'J  0  - 1  6  / 

INfUFC 

3** 

c 

INITIALIZE  lMAkACTES  LGCATIGN  USED  TO  CECOOE  LSTABlk 

iNfUFC 

35 

r 

LOCATIONS  l  ROLL  UP  N  LM8 1 R T  ANO  C.tlFAL  POINT  UlTEkAL 

INF  UFC 

2b 

2m. 

DATA  CPAP1  /  UH  /,  MVDOT  /  1H.  / 

INFLPC 

27 

c 

INfUFC 

28 

c 

KfcCJtfU  LENGTH  I.‘|U£X  17  UNIT  3 

INFUPO 

39 

DATA  U  Kh 1 7  /  375 J  Z 

INF  LF  C 

(.0 

c 

BrCGiiD  LcNGTH  UNIT  9 

INF  LF  C 

Ml 

296 

DATA  LiN«9  /  In  / 

INfUFC 

M2 

c 

CiR  Cm  TA  STOftc  UNOEK  LtNCfcK  NO.  OP  INDEXES 

INF  UFO 

hi 

OATA  UNCEm  /  9  / 

INFUFC 

*,*» 

DATA  LCNF9  /  1 25 u  / 

INFUPL 

45 

OATA  LtNflu  /  13Dy  / 

INFUFC 

Mb 

3  C 

OATA  INQXTCT  /  1251  / 

INFUFC 

m7 

c 

IfCfcX  LENGTH  OF  CtP  UNIT  6 

INF  UFC 

46 

OATA  LfcNF-3  /  90*  / 

INF  UPC 

M9 

c 

PfcCOKO  LtNGTHS  OF  CfcR  OATA  CN  MS  UNIT  6 

INF  LF  C 

50 

OATA  L  IS  0  /  150  /,  L30 0  /  903  / 

INFUFC 

51 

3-5 

c 

INF  UPC 

52 

c 

SPfClML  FLAG  (ISPFlG)  TC  DIFFER  EN  TATE  BETWEEN  NORMAL 

INFUFC 

53 

c 

INPUT  ANO  EQUIPMENT  OtFINITICN  INFUT 

INFUFC 

54 

c 

=  3  SYSTlM,  SHIP  CLASS,  bQUlPMf NT  NAMES 

INFUFC 

55 

c 

=  1  cOUIPMcNT,  TPUT,  NfUT,  CEE,  OATA 

INF l F  C 

5fc 

3U 

CATA  ISPFLG  /  .)  / 

INF  LFC 

57 

c 

iNf  UFC 

58 

c 

INITIALIZE  THE  ClR  INOEX  CCUNTEk,  CEK  SUBSCRIPT 

INFUFC 

59 

c 

STORAGE  COUNTER 

INF  UP  C 

to 

OATA  I NOCEk  /  -6  /,  ISUECEft  /  0  / 

INFUFC 

ei 

315 

OATA  SFCL  /  0,0*0  / 

INF  UP  C 

E2 

OATA  NAF,  AFFRO/ 7 , 4HR0 T E, 3 hSC N » 3 MW PN , 3FOF N , 3HHCN , IMKPN ,3HO MR/ 

INFUFC 

63 

c 

set  up  ship  class  ano  equipment  names 

INF  UPC 

64 

c 

INFUFC 

65 

c 

INITIALIZE  T He  EQUIPMENT  SAVE  COUNTER  (FOR  INCEXES) 

INF  UPC 

66 

•  ir 

c 

BOTH  cQUIFMLNT  ano  cer 

INFUFC 

67 

ICC  T  fi  *  J 

INF  UFC 

68 

c 

INFUFC 

69 

c 

initialize  the  ship  ano  equipment  COUNTERS 

INF  UPC 

70 

ISHPCT  «  0 

INf  UFC 

71 

325 

ICOMCT  3  j 

INF  UP  C 

72 

c 

INFUFC 

73 

CALL  OFLNM5  (  2,  1X2,  LEI4F  ♦  1,  0  ) 

INFUPO 

74 

CALL  OFENMS  (3 ,1X3*L£NF»1, C) 

INf  UFC 

75 

CALL  OFENMS  U , I X 4 , L ENF ♦ 1 , E 1 

INFUFC 

76 

3 

CALL  Of  6 MMS  (  8,  1X8,  Lt  NF  8+ 1 *  0  I 

INFUFC 

U 

CALL  OFENHS  (9,IX9,LENF9*1,0I 

INfUFC 

78 

CALL  OFEhMS  IU»aX1Q,u£NF1  j) 

INFLPD 

79 

MR  I TE (fc , 18) 

INFUFC 

60 

18 

FORMAT  (1MI,9X, IomCAKU  INPUT  LISTING  ✓  /) 

INFUPO 

1 1 

3  35 

c 

INFUFC 

tz 

c 

AT  mO  IN  GEUvKAl  TITLE  (MAXIMUM  OF  2b  CHARACTERS  ALLOWEO 

INFUFC 

1 3 

c 

INFUFC 

64 

FCA0(5,19)  TIT  Lt 

INfUFC 

65 

19 

FO1*  MAT  (  2Alu  ,  Ab  1 

INf  UPO 

£6 

J4. 

MBIT E<t«  1919 1  T l T  L  t 

INf  UFC 

67 

1919 

FORMAT  (1  J  X,  2A 1  j ,  A  6  ) 

INfUFC 

60 

C  Rf 

AO  IN  TATA  FA*-  Y  lOUSLY  FGUNO  IN  INIT 

INf UFO 

69 
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jtf^uCiT  INc 

INfUt'C  l^/T-4  Ot-T  =  2  PTw  ,,t**.33 

-7/31/7* 

21.  £3 

PEA  015  t  8  j  5  )  NWtS.NPrt,  (IPfll  J)v  1*1#  3J 

IKf tFC 

£0 

WRlTfe It  ,iQ?)  NUeSf NPH,  UPtt (X) , 1*1,3) 

inpupd 

£1 

int. 

i  05 

FORMAT  (515) 

INPLPC 

£2 

ao7 

f Of  MAT (1 JX,5I6  ) 

INF LFC 

£3 

C 

INFUFC 

<U 

00  7  7 

INF UPC 

£5 

RE  AO <5  ,606)  IF  HA  St  U  ,K>  ,  I PHASE  17  ,  *  )  ,  if  PC  K  >  ,  NRCUL  (  F  ) 

Inf  if c 

£6 

J5  i 

MR  I  T  £  (  (  #806)  l  PM  ASH  l,K)  *  I  PHAS  l  (2  *  KJ  ,  IPMIM  .UPOIL  (K  ) 

INFUPC 

£7 

7: 

COM  JNLE 

INF  LFC 

£  0 

5  06 

FOP  MAT  I2AI;  ,21b) 

INF  LFC 

59 

606 

FOW  MAT  11 jX, 2A10,2I5) 

IN F LFC 

ICC 

DO  5  I-UluNP 

INF  CPC 

lvi 

355 

I»£C  II  )  *  u 

INFUFC 

1C2 

5 

IOPECU)  =  ) 

iKf LPC 

1C3 

c 

IMUFC 

IC4 

c 

INFLFC 

U5 

OO  56  IslcN«.LfcNM7 

INF  UPC 

lib 

JUi 

IRFClI)  *  \j 

IKHPC 

ir.7 

56 

COMINU& 

INF  UPO 

1C8 

c 

INITIALIZE  THE  CER  ARRAYS 

INF  UPC 

1C9 

C£PCT  =  4 

INFUFC 

no 

00  6  1*1. C150 

INF  Ur C 

111 

365 

IFORCCII  =  10H 

INFUFC 

112 

IFOWIpiIi  *  C 

INFLFC 

113 

ICE&NOll)  *  J 

INF  LP  C 

114 

IXPEFNC  111  =  0 

INFUFC 

115 

IXPEFACm  *  0 

IMFLPO 

116 

3?r 

XAOO  (I  )  *  C 

iNf UFO 

117 

00  6  J=1  ,6 

INFUPC 

118 

IFSTCFE<J,I>  =  10M 

INFUFC 

1 1* 

PSSTCPf  U,X)  a  0. 

INFLFO 

1  CU 

6 

CONT INI'C 

INF  LFC 

121 

3  75 

c 

»•  • 

USING  "X OPlC**  AhC  -IRECm,  WKIT6  ALL  ZERO  RECOROS  CN  IS  4. 

INFUFC 

1  22 

CO  1C  I*1,LEnF 

INFLFC 

1  23 

IF  (  X  ,6C.  IXSS  1  GO  TO  10 

INF  LPC 

124 

CALL  WHIMS  <  <•»  IORECt  L£NR,  I,  -1  1 

1NPUPC 

125 

10 

CONT  XNU 

INFUFC 

126 

3 

CALL  WPITmS  I  4,  IktCt  LlNK17,  IXSS,  -1  1 

INF  UPO 

127 

c 

INF  IRC 

1 2d 

c 

INITIALIZE  THE  UER  STORAGE  UNIT  8 

INFUPC 

129 

c 

•  •  • 

WRITE  ZEROS  ANG  BLANKS  ON  MS  8. 

INFUFC 

120 

00  11  I»  l,LtNFc*LchCER 

INFLFC- 

L  21 

3*5 

CAV.L  WPITMS  ib,  UrKCT  ,  !•  ,  1  ,  -1)  f 

INFLFC 

122 

CALL  W  S I  TfiS  <6,  IFukC  »  L150,  I  ♦  1  •  -1> 

INFLFC 

123 

CALL  HP*  IT  MS  ( 8  *  IROWIC  ,  Ll5j,  U2,  -1) 

INFLFC 

124 

call  WPITMS  (o,  I A  00  .  L  15  j  ,  1*3,  -1) 

INFLFC 

1  25 

CALL  WHIMS  Id,  ICtKNG  ,  L15J,  !♦<*,  -1) 

INf  LFC 

1  26 

3*l 

CALL  WHINS  «U  IXRtFNO,  LlSO,  1*5,  -1) 

INF  LFC 

127 

CALL  WHIMS  (A,  i*wEFAD«  H5-,  1*6*  -1) 

INFUFC 

1  2d 

CALL  WHIMS  Id,  iFMOKU  L*iOO,  I*7,  -1) 

INF  LFO 

129 

CALL  WPITMS  (o,  PS STORE ,  1*00,  -1) 

INF  LFC 

lO 

11 

CONT INLL 

INFLFC 

141 

315 

c 

GO  IC  15 

INFUFC 

142 

c 

17 

CONTINUE 

INPUPC 

143 

c 

PE  AO  *6,25)  INF 

INFUFC 

1  44 

c 

IF  I  EOF  (5 ) )  800,15 

INFLFC 

145 

c 

15 

CONT INLE 

INF  LFC 

146 

A-28 


SUBROUT  IKE  INFLPO  74/74  UPT  =  2 

ftn 

4 

.6+433 

l7  /3  1/79 

23.  63 

*]0 

c  ••  * 

USING  “IGAsC"  ANC  "I-ai."  (ZEROS),  W)ITc 

2  EkCS 

ON 

MS 

2. 

INF  LPO 

1L7 

00  16  Ial.lENK 

INF  IPO 

IPO 

IF  (  I  ,;Q.  IXSS  1  Gu  TO  16 

INF UFC 

1L9 

CALL  Ft  AOHS  U , ICRtC.Lf NK ,  I) 

INFUFC 

ISO 

CALL  HUTMS  (  2,  IORtCt  Lt  NR*  I,  -1  t 

INFUPC 

151 

4  55 

16 

CONT INLt 

INFLFC 

162 

C 

INf CFO 

153 

CALL  CFAOMS  1  A.  1 Kb C •  LFNnIT,  IXSS  ) 

INFUFC 

1  !4 

CALL  WHIMS  l  2.  Ii.EC.  LLKA17,  IXSS,  -1 

) 

INFUPC 

155 

CALL  Rt'AGMS  I  2,  InEC,  LLNkIT  ,  IXSS  ) 

INFLFC 

156 

41w 

IF  (EOF { 5) .Nc. II  GO  TO  50  0 

INFUPC 

167 

c 

ActC  ANO  OLCOOl  INPUT  CAIA 

INFLFO 

16o 

c 

(SYSTEM--CBS,  LQUlPMtNt  QUANTITIES  PER 

SH  IP) 

INFUPC 

159 

c 

INFUPC 

l£j 

20 

CUNT  I NUE 

INFUPC 

1(1 

•♦If 

IF  (  I'PFLG  .tC.  1  1  GO  TO  910 

INF  1FC 

1(2 

PEAO  (5,251  IN  f 

INFUPC 

1(3 

26 

FORMAT  (aAl'J) 

INFUFC 

1(4 

IF  (EOF (5)1  ft  Q  0 »  30 

INF  1PC 

lt5 

3) 

WRITE  (6,31)  INF 

INFUFC 

1(6 

4  2b 

31 

FORMAT  (  1 JX , c AID ) 

INFLFC 

1(7 

C*** 

TEST  FIRST  <*  CMAA'S  (INPUT)  F OF  SIGNIFICANCE. 

INf UPO 

1(8 

c  **  * 

INFLFC 

1(9 

CALL  MC VC  (INP(l) ,1, CHAR, 1,4) 

INFUPC 

1  TO 

IF  < CHAR.EQ.^HNPUT)  GO  TO  250 

INFUPC 

1U 

1c” 

IF  CCHA«.cQ*4HTPun  GO  TO  23Q 

INF (FO 

172 

rr  ( CH AR .EQ.4H tQUI )  GO  TO  150 

INFUPC 

l  53 

IF  (CHA  F.EQ.4HSHIP )  GO  TO  100 

INFUPC 

1)4 

IF  ( CH AR.EQ.4HSYST)  GO  TO  50 

INFUFC 

i  ;s 

IF  (ChAR.EQ.sHStNO)  GO  TO  50iJ 

INFUPC 

1  76 

h?G 

<;••• 

TEST  FIRST  CHAP  FOR  COMMENT  CARD. 

INFUFC 

177 

CALL  MCV6  (CHAR, a, CHAR, 2, 3) 

INFUFC 

170 

IF  ( CHAR. EO. 1M*>  GO  TO  20 

INFUPC 

1  79 

IF  (CHAR. to, IN! 1  GO  TO  2Q 

INFUFC 

123 

GO  TC  20J 

INFUPC 

ltl 

4  16 

C 

SYST  ( M  CARG  r*  E  A  u 

INF  UFC 

1  (2 

50 

IOREC(I)  »  IUF(l) 

INFUFC 

1 23 

IOREC  (  2  )  a  IriP  (2  ) 

INFUFC 

104 

h^SYS  =  I NF ( 2 ) 

INFUFC 

165 

CALL  WFITMS  (2  , 1  Oh  LC , LL  NR ,  IX S  , 1) 

INf LPO 

16b 

u  -l 

SSFIAG  =  -1 

INFUFC 

1(7 

GO  TO  :o 

INFUPC 

1  (0 

C 

SU6SYJTLM  CAKU  K£AO 

INF  L P  C 

169 

101 

continle 

INFUPC 

ISO 

c 

•  '  INFUFC 

1S1 

«*  *.5' 

c 

INCREMENT  SHIP  COUNTER  AND  STORE  SHIP 

•s 

NAME 

INF  LFC 

IS  2 

ISHPCT  =  ISHPCT  ♦  1 

INFUFC 

1  S3 

NOSU6  *  ISHPCT 

INFUFC 

154 

ICOMCT  =  0 

INF  (PC 

1 55 

NMSUe (  1,  ISHPCT >  =  I N H  (31 

INFUFC 

1  6b 

•*c( 

NMSUfl( 2, ISHPCT )  =  INP (2 ) 

INFUPC 

1 57 

c  **• 

REFORMAT  THE  -IMP!  21-  WORD  INT  C  THE  *' N M** 

WORO 

FOP 

A 

LENGTH 

INFLFC 

158 

c*#  • 

OF  l  HOWO,  LEFT  JUSTIFIED 

INFUFC 

1  59 

CALL  PkFMT  (  I NP ( 2 ) ,  NM,  1,  1 HL  ) 

INFUFC 

2  JO 

SHIP  *  NM1)  .AND,  MASK 

INf  LFC 

2  01 

*st 

SSFLAG  *  1 

INF  LFC 

2C2 

GO  TC 

INFUFC 

2G3 
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SLEPOUTlNc  ZNFUP0  74/74  OPT  =  «>  FTN  -,.6+435 

C7/21/79 

23.53 

C 

COMFONcNT  I/Aku  KlAQ 

I NF  Lc C 

2C4 

150 

CONT  INOE 

INF  LP  C 

2  c5 

C 

FROP  THiS  POINT  TO  LAbtL  “3  t“,  PROCESS  A  "tOUI"  RECORD 

INFUPC 

2  06 

46L 

C 

CLUING  SHIP  class  o+finiticn 

INF LFC 

2C7 

C 

INF  UPC 

208 

c 

INCREMENT  L  CUIPmEMT  COUNTED  ANO  STOPE  EQUIPMENT  NAME 

INF  CPC 

2G9 

ICOHCT  =  ILOMCT  ♦  1 

INPLPC 

210 

NOCOMF  (ISHPCT  >  =  ICOMCT 

INf LPC 

211 

4F! 

c 

INF  LFC 

212 

IF  (  IFF  121  ,tO.  0 HAW  1  )  GC  TO  160 

INf UPC 

213 

IF  (  INRU)  .:  C.  C mAh  1  )  GC  TO  170 

INf  CPC 

214 

c 

INf UFC 

215 

160 

CONTINUE 

INF  IF  C 

216 

47T 

C*#* 

SET  LP  1  If.  2  WOkO  HEADING  TITLE  f  GK  WBSOLT. 

INf LFC 

217 

NhCOMP <1 » ICOMCT . iShPCT 1  *  INPI2) 

INF  IP C 

210 

NMCOPF  (2, ICOMCT, ISHPCT)  =  INF  1  21 

INf LPC 

219 

GO  TC  101 

INf  IFC 

220 

c 

INf  CPC 

221 

475 

17  0 

CONT  INLE 

INf LFC 

222 

NMCOMF  lla ICOMCT, ISHPCT )  =  IN P ( 3 ) 

INF  UP  C 

223 

NMCOPP  (2, ICOMCT, IShPCT)  =  INF(2) 

INF  LFQ 

224 

c 

INPLPC 

2  25 

100 

CONT  INU 

INf LFC 

2  26 

4*C 

c 

CCMF  IcSS  1ST  6  LEFT  JUSTIFIED  CHARACTERS  INTO  UNIQUE 

INF LPC 

227 

c 

NAME  FOR  “SHIP** 

Inf  LP c 

228 

CALL  RtFPT  (  NMCOMPC, ICOMCT, I  SHPCT)  ,  NM,  2,  1HL  ) 

INF  LF  C 

229 

6QUI  2  NM(1)  ,  AN  C  ,  MASK 

INFUFE 

2  3C 

SSFLAG  *  2 

INF  UPC 

221 

4*6 

GO  TO  261 

INF LPC 

222 

c 

TMRLPUT 

IN  F  LF  C 

223 

200 

INC  =  0 

INF  LPC 

2  34 

GO  TC  261 

INFLFC 

2  25 

C 

INPUT 

INF  UPC 

226 

4  *1 C 

250 

INC  =  1 

INf UFC 

2  27 

c*«  • 

INFLFC 

220 

c  • 

“SSFLAG**  ASSUMES  3  VALUES  PRIOR  TO  FIRST  “SEnO"  RECORC 

INPLPC 

229 

c**# 

=  -  1  BtTHfcEN  “STS  T"  AND  1ST  “kOUl“,  “SHIP” 

INFLFC 

240 

c**  • 

(WHILE  READING  W0S  ELEMENTS) 

INFLFC 

241 

4  95 

c  ••• 

*  1  EVERY  TIME  “SHIP"  IS  FEAC 

INFLFC 

242 

c  **  * 

=  2  EVERY  TIME  *'EQUI“  IS  READ 

INFLFC 

243 

c**  * 

INFLFC 

244 

260 

IF  (SSFLAG. LT . J)  GO  TO  2u 

INF  LPC 

246 

IF  (  SSFLAG,  EQ.  1)  EQUl  =  SHIP 

INFLFC 

24b 

5  L  C 

t*** 

WHILE  REAOING  SYSTEM  DEFINITION  FOR  tVtPY  NEW  “EQLI“  UNOER 

IMP  UPC 

2  47 

c*** 

THIS  “SHIP",  ENTlR  A  NEW  UMOLE  TRIPLET  IN  TmE  “IREC"  ARRAY, 

INF  LFC 

240 

c*** 

TRIPLFT  2  (SHIP  lLASS/FQUI  HlfcNT/  MSS  STORAGt  3  iNCtX) 

INFLFC 

249 

N  *  IF  * C (1) 

INFLFC 

25  J 

c 

(SHIP  ClASS/tQUl fWLNT )  NOT  FCLNO  -  AQG 

INFLFC 

251 

•>  *5 

N  2  N  ♦  1 

INPLPC 

252 

IRFC(l)  =  N 

INFLFC 

253 

IREC  I N  *3  *  1 )  =  SHIP 

INPLPC 

254 

IREC  (N  *3 )  2  tOUI 

INPLPC 

255 

IRtC  (N*3 ♦ 1 1  2  IXSSO  «•  ( N- 1 ) *2 

INF  LP  C 

256 

5  VC 

CSTAELp  (N*3-2I  =  SHIP 

IN  F  UP  C 

257 

CSTAELl  (N* 3- 1)  =  tQUl 

INFLFC 

258 

I*  N 

INPLPC 

259 

LOCAT  =  ( I*  5+  t ) 

INFUFC 

2(0 

A-30 


SUfc'F  GUT  INC  InFUPO 


74/7 


OPT 


FTN  4  •  c  -“4  33 


C7/31/7S  C3.£i.*. 


C 

OECOOf  IN  F  <  7  )  AND  FURM  IPFOOOC  AKxAT. 

INFLFC 

2U 

515 

C 

INP ( 7 )  =  PnOCUKcMCnT  MuNtY  (SCN,  WPN,  Oh  OP N> 

INF  LF  C 

2(2 

c 

IFROCOO  =  2  FOR  SON 

INFLFC 

2(3 

c 

=  3  FOR  WPN 

INF  UP  C 

2(4 

c 

=  i*  FOR  UPN 

INFL'PO 

2(5 

c 

=  .j  FOK  NC  INP  ( 7 1 

INFUFC 

2  kb 

5  2  Ci 

INF7  =  ?  H 

INH  LF  C 

2(7 

CALL  HCVc(INP(7) ,1,INF7,1»3) 

INFLFC 

2(8 

IF IINP7. SQ« 3m  )  ICOSCOD  =  0 

IN  F  UP  C 

2E9 

IF ( INF7. fcC. JHSLN)  ICOSCOD  =  2 

INFLFC 

210 

IF (INP? .£Q. 1HWFNJ  iCOSCOG  -  3 

INFUPC 

231 

3?C 

IF  (  INP7.EQ.  3FOPn  )  XCoSCOC  s  4 

INFLFC 

2  .2 

IPFOCOC(h)  =  ICOSCOD 

INFLFC 

2  73 

c 

INFUFC 

2  74 

c 

DECOCE  K  STORE  THE  C/S  TAfcLt  VALUES  FROM  "INP**(5>  i.  “lNP,4(6>, 

INFLFC 

275 

c 

INF  LFO 

2  3b 

5  Ju 

j5  =  a 

INFUPC 

2  77 

CHAR  2  =  CHARI 

INFLFC 

279 

c 

INP  LP C 

279 

c 

DO-LOOP  295  ANO  FOLLOWING  COOc  SCANS  THE  LEFT  POST  (5 )  C  P  AR  ALTERS 

INF UFO 

2(0 

c 

OF  INP ( 5  )  WCRO,  ANC  cNUOOES  ANY  NON-BLANK  ALPHANUMERIC  INTEGER 

INFUPC 

2(1 

c 

CHARACTERS  FCUNO  THERE  INTO  A  5-CIGIT  INTEGER,  STCREC  (AS  TH IRC 

INFLFC 

2(2 

c 

MEMBER  OF  A  CUAQkU FI ET )  IN  CSTABLE  ARRAY  (I.E.,  TOTAL  CUANTITY 

INF  LPC 

2(3 

c 

OF  ANY  EBS  ELEMENT  KtCUIREU  ON  EACH  UNIT  OF  A  GIVEN  SHIP  CLASS 

INFUFC 

2(4 

c 

FOR  FULL  OPERATIONAL  CAPABILITY! 

INF  LP  C 

285 

c 

INFLFC 

2(6 

•>4C 

C' 

»**  ENTER  A  NEW  CUAORUPLEr  IN  "C ST A6L£"/”C ST A 8£ L” 

INF  IFC 

287 

C***  (SHF  CLASS/ tCUlPHE NT  CtFLCYMENT  CTY)  AND  (RDHf  UV  QTY) 

INFLFC 

2c  o 

00  2  55  1 1* 1,5 

INFLFC 

2(9 

CALL  MCVE  C  I N  F  (5  )  ,  II,  CHAR2,  1,  1  1 

INFLFC 

250 

IF  (  CHAR2  .tQ.  1H  >  GO  TO  255 

INFLFC 

251 

545 

J5  s  JE  *  i 

INF  IFC 

252 

CALL  MCVE  <CHaR2*1,SAVC  »J5  #1) 

INFUFC 

2  <3 

295  CONTINUE 

INFUPC 

2  54 

C 

INFLFC 

255 

IF  ( J5  .NE.u)  GO  TO  296 

INF  LPC 

2  56 

550 

CSTAELt  (1*3)  =  L 

INFUFC 

2  57 

GO  TO  257 

INFUPC 

2  56 

c 

INFLFC 

2  59 

296  CONT IN LE 

INFUPC 

300 

c 

INF  IFC 

3  tl 

5*5 

ENCOCE  (4,376,FhT)  J5 

INFLFC 

3  C2 

OECODE  ( J5.FMT ,SAVLl  CSTABl£(I*3) 

INFLFC 

3L3 

c 

INF  LF  C 

JU 

c 

OO-LOOP  29C  ANO  FOLLOWING  COLE  IS  SIMILAR  TO  PRECEDING  COOE ; 

INFUPC 

305 

c 

THE  5-CHAP  AC  TER  REAL  NUM3ER  FROM  •*INP“(6),  STORED  AS  THE  4  TH  MEMBER 

INFLFC 

ibb 

s*: 

c 

OF  A  QUACRLPlET  IN  THE  "GST  A8E  L  **  AFRAY  IS  (THAT  QUANTITY  OR  FRACTION 

INF  UHL 

5C  7 

c 

OF  ANY  EPS  t LEmEnT  WHICH  MUST  cE  BOTH  MANLFACTURtC  ANC  INSTALLED 

INFUFC 

Jib 

c 

ON  EACH  UNIT  OF  A  GIVtN  SHIP  CLASS) 

INF LPC 

3C9 

c 

INFLFC 

310 

257  CONTINUt 

INF  LHC 

311 

5  65 

J6  =  0 

INFUFC 

212 

J7  =  a 

INFLFC 

313 

ja  *  o 

INF  LP C 

314 

IPO  I  NT  s  0 

INF  LPC 

J  15 

CHAR  2  -  CHAfil 

INF  LP  C 

316 

5  M- 

00  258  11*1,9 

INFUFC 

317 

SLfPQUT  INe 

IN  PUP  C  74/74  CPT  =  2  PTn  ».o*-.,3.3  0 

7/31/75 

23.53 

CALL  MCVE  4  INP  (t  )  .  1 1 .LHAK2 » 1* 1 1 

INPLPC 

3  16 

I F  ICHAR2.tQ.lH  )  GO  TO  296 

INF  LPC 

319 

IF  ( CHAR2.tQ, 1M. )  IPO I  NT  =  IPOINT  ♦  1 

IN  F  L  PC 

3  2u 

J«  s  J8  M 

INF  IFO 

321 

5 ;»» 

IF  UPClNT.EO.u)  Jt  :  J6  M 

INF  LPC 

322 

IF  (1FCINT.EO.  1  .ANU.  ( Jd- J6 ).  GT.  1)  J7  =  J7  ♦  1 

IN'FUPC 

323 

CALL  MCVE  <CHA*2 ,1 .SAVE. J8 , 1> 

INPLPC 

324 

258 

CONTINLC 

INFUFC 

325 

IF  (jfl.Nc.u)  GO  TO  299 

INPLPC 

3  26 

5  r  u' 

CST  ABE  L  (  I)  *  0  . 

INPLPC 

327 

GO  TC  20 

INP  LPC 

326 

299 

CONTINUE 

INPLPC 

329 

IF  1 IPClNT.tQ. fl)  Jo  =  Jd  ♦  1 

INF  IPC 

320 

C 

INPLPC 

331 

C 

STOP  31  PREVENTS  ABORT  CN  “FORMAT  J77“  OR  “  F  M  T  R  “  FROM  A  TCC-LONG  NeP 

INP  IPC 

322 

C 

IF 

STOP  51  tVfc«  OOCUhS,  rfEVRH  INPUT.  AND  SHORTEN  CONFCNtNI  COLN1IS) 

INPLPC 

323 

C 

IN  SECCNC  COLUMN  (OF  SYSTEM  DESCRIPTION)  TO  9  OR  FEWCP  CHARACTERS! 

INPLPC 

334 

c 

NOTE!  THE  LHAKACUR  COUNT  INCLLOES  NUMBERS  TO  LEFT  Oh  kIChT  OF  OECIMAL 

INP  LPC 

3  2b 

c 

POINT  ANCj  The  OECIMAL  point;  if  YOL  HAVE  a  9-OIGIT  integer 

INP  LPC 

326 

5K 

c 

(PERISH  FOKblD  1  HEAVEN  FORBID!)  ThE  PROGRAM  LOGIC  WILL  SUPPLY 

INPLPC 

3  27 

c 

THE  UNDERSTOOD  DECIMAL  PCINT,  INCREASING  THE  CHAR  ACT  LR  COUNT 

INPLPC 

33a 

c 

TO  U,  AHO  CAUSING  A  STOP  31  CONOITICN  —  REOUCt  TO  8-OIGITS! 

INPLPC 

339 

c 

INPLPC 

34U 

IF  (J&.GT.9)  STOP  “INPUT  NUMBER  TOO  LONG;  SEE  NOTE  AT  INPUPO  299“ 

INPLPC 

341 

5  55 

IF  ( IPCINT.EO. 0)  CALL  MOVE  < rY COT , 1, SAVE , J8 , 1 ) 

INPLPC 

342 

ENCODE  1E.3T7.FMTR)  Jb.JT 

INPLPC 

343 

DECODE  <  Jfl.FhTk.SAVE)  CSTAPELU) 

INPLPC 

344 

GO  TO  20 

INPLPC 

345 

c 

OATA  CAPO  R t AO 

INPLPC 

3*.o 

c**  * 

INP UPC 

347 

c**  * 

“NT  YPE  *'  a  INCICATOK  OUPING  SCAN  OF  1ST  20  CHAK  OF  OETaJL 

INFUFC 

346 

c  •*  * 

OATA  CARO 

INP  UPO 

349 

c 

••  • 

a  c  ONLY  ELANKS  SO  FAk,  OK  JUST  STARTING  SCAN 

INPLPC 

35u 

a  1  JUST  SCANNED  1ST  LEFT  PAPER  (PRESUMES  SINGLE  W6S  tU 

INPUP  C 

351 

6  5 

c  ••  * 

a  2  JUST  SOANNEO  FIRST  OASH  (PRESUMES  MULTIPLE  weS  EL'S 

INPLPC 

352 

3  Du 

J=  0 

INPLPC 

353 

NTYPE  =  3 

INf  UPC 

354 

OO  350  1*1, 2i 

INPLPC 

355 

CALL  MCVE  (INP.I  .CHAR.l.l) 

INP  LPC 

356 

tli 

IF  (NTYPE. GT.O)  GO  TO  310 

INPLPC 

357 

IF  (CHAR.6Q.1HI  )  NTYPE  a  1 

INP  LPC 

3  56 

GO  TO  3  !i) 

INF  LPC 

359 

310 

IF  ( CH AR.EQ.IH  )  GO  TO  350 

INFUFC 

360 

IF  (CHAR. G( . 1HO.ANO. CHAR. LE.1H9)  GO  TO  3*0 

IN  P  UP  C 

3  E 1 

6  15 

IF  (ChAR.Nl.IH-)  GC  TC  320 

INFUFC 

3€  2 

IF  (NTYPE.UE.2)  GO  TO  36* 

INP  LPC 

3E3 

c 

*♦  • 

”LOC“  a  POSITION  r n  J-COLNT  OF  CASH, 

INPLPC 

3  6  4 

LOC  =  -Ml 

INPLPC 

3E5 

NTtPE  =  2 

INPLPC 

366 

6  >u 

GO  TC  340 

INPLPC 

367 

320 

IP  (CHAR.cQ.lH)  )  GO  TO  J70 

INPUFC 

36o 

GO  TC  ?6J 

INPUPC 

369 

c 

••  * 

“1“  a  COUNT  OF  LLOIT  CHAN'S.  (ANY  DIGIT  CN  OASH) 

INPLPC 

3?J 

340 

J  «  J^  1 

INPLPC 

371 

62« 

CALL  MCVE  l  CHa.<  .  1  ,  SAVE  .  J«  1 ) 

INP  LPO 

372 

350 

CONT INUE 

INPUPC 

3  73 

c 

OUT PUT  tRKUN  MtSSAGt 

INP  LPC 

374 

A-32 
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UBkO  LTIhE  INFUPC 
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6  *C 


6  'E 


6  4.; 


Eu5 


e=i 


655 


t‘.c 


6*5 


8  7 1, 


6  r\. 


t  -c 


3€J  WRITE  <fe.3l>  INP 
WRITE  <6  .  2oU 

361  FORMAT  <5X»  26HPncLe  DING  C A40  15  IN  fcRKO*  ) 

GO  TC  20 

TEST  FOR  A  -0ASW  nuT  FutLOWE 0  BY  A  SECOND  SUBSCRIPT 

371  CONTlNUt 

IF  UJ  -  COO.cQ.J  •  AN  C.  NTYFE.fcQ.2)  GO  TC  37  2 
IF  t  h7  y  f  b  »LQm  2 1  GO  TO  390 
GO  TO  374 

C  0  EC  REMt N  T  *‘J**  l  C  HAtiOt  "NT* P6  **  FOR  OASH  NCT  FCLLOWcD  Er  2NC  SUeSLSIPI 
C 

372  CONTINU 

J  -  j  v  i 

NT  YP£  s  i 

C  single  subscript 

374  COUTINUL 
NUM  s  1 

ENCOGE  <4,376, fMTI  J 

C***  PICK  OFF  M<iS  ELLIlEUTS  IN  FIRST  10  CHAR'S* 

3  76  FOxMAT  <IH<I,I1,1HJ  > 

377  FORMAT  ,11, 1H>) 

OcCOCf  <  J,f  M , SAVE )  I5U0F 
GO  TO  390 

C  SUBSCRIPT  RANGE 

36i>  N02  »  J-lO*- 
NOl  =  J-N02-1 

ENCODE  <10. 3*5, FMH  N01.W02 
385  FORMAT  (2MI,I1*5H,1X,£,I1,1H)  | 

DEC 006  <j.FMT,SAVE)  ISUBF.  ISUBL 

NUM  s  ISuet-ISGE f*l 

393  IF  < SSF  IAG.LT, C)  GO  TO  *15 
C  UPDATE  SHIP  CLASS/ EQUIP ME NT  FILE  RECOPQ 

C***  WORKING  WITH  MPUT"  COST  LINE* 

C •**  STORES  UP  TO  6  WBS  EL  'S«  STORES  *'TFUT"  COSTS  ON  MS  2  IA/N) 

C'+*  AT  iFQtX  *  16.20. 22, cTC  OR  STOKES  "NFUT**  AT  INDEX  *  19, 

C***  2l.22.cTL. 

INDEX  -  L0CAT  ♦  INC 
CALL  M4CMS  (2 » 1C«  ct  ,LE<K,  INOE  *  l 
DO  4  10  1*1*  NUM 
IOKPCUSUGF^I-l)  S  2NMX*2) 

4  1 J  CONTINUE 

CALL  WMTrtS  < 2  . *  OREL  ,l£Nk  .  INGfc  X  ,  1 ) 

GO  TO  2u 

C  UPDATE  V.BS  Ok  SYSTEM  DATA 

C***  WORKING  WITH  m  w6S  tL  “TPUT’*  PRICK  TC  FIPST  '•ffcNC'*  O* 

C*#¥  A  “TPLf”  COST  UN:  OF  AN  EQUIPMENT 

415  IF  <X»C«£Q.  1>  GO  TO  *.3J 

tNOey  '  1XW9S  ♦  < ISUBf-l)/ <LLNP/f I 
CALL  PfcACMS  <2.lL)?tL,LfcNR.  1NOC  >) 

ISUIU  *  KCl  <2SLoF,'5-4,L£NR  ) 

C***  WRITING  **APFOO  F  COUt. ”,  ~eL  NAMES**.  ANO  tlFMENl  NO.  CN  MS  2. 

00  420  1*1.5 

421  IOPcC< iSU0L*I-tl  *  lNPt2*lt 

CALL  WFITrS  <2  .luRtC.U.NR,  INDkX.U 


INF LFC 
INF  LP  C 
INFLFC 
INFUFC 
INFLPC 
INFLPC 
INFUFC 
INF  LP  C 
INF  L  FC 
INFLPC 
Inf i F  c 
INFLPC 
INF  UPC 
INFLPC 
INFLPC 
INF  L FO 
INFUFC 
INFLPC 
INFCPO 
INF  t  F  C 
INF  UP C 
INFLPC 
INFLPD 
INFLPC 
INF LFC 
INFLPC 
INFUFC 
INFLPC 
iNf LPC 
INFLPC 
INFLPC 
INPIPC 
INFLFC 
INFLPC 
INFLPO 
JNFLFC 
INFLFC 
INF  IRC 
INFLFC 
INFUFC 
INFLFC 
INFLFC 
INFLPC 
INFUFC 
INF  LFC 
INFLPC 
INFUFC 
INFLFC 
INFUPC 
INF  UC 
INFLFC 
INFLPC 
INFLFC 
INFLPC 
INFLPC 
INFLPC 
INFLFC 


3  76 

376 

377 
3  7* 
379 
3  8u 
3  81 
3  <2 
313 

384 

385 
316 
387 
326 
38* 
3  6u 
361 
J‘2 

3  <3 

364 

365 
356 
367 
356 
369 

4  OS 
4  Cl 
412 
4C3 
404 
4C5 
4Cb 
4  t7 
4  o  8 
4*9 
4  1 J 

411 

412 

413 

4  14 

415 
4  16 
417 
4  10 
4  19 
4  2o 

4  21 
4  22 
413 
4  24 
4  25 

426 

427 
420 
429 
4  33 
4  Jl 
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esc 


eso 


e'« 


7  L 


7.5 


7  It* 


715 


7  ?i 


725 


7  3t 


7  3* 


7uj 


C  INFLPC 

C  INFUFC 

C  UECGOfc  RuLL-UP  VALUE  INFUFC 

J  =  a  INFLFC 

CHAP  2  =  CHAfil  INFUFC 

DO  425  11=1,2  INF  LP  C 

CALL  MCVc  I  I  N  f  (  6  I  ,  II,  CHAR2,  1,  1  >  INFLFC 

IF  (  CHAR 2  ,tQ,  1H  )  00  TO  425  INFLFC 

J  a  J  ♦  1  INF  LFC 

CALL  MCVE  <  CH  Arv 2 »  1.  SAVt  ,  J ,  1  1  INFLPC 

* 25  CONTINUE  INFIPC 

C  INFLPC 

ENCOCF  <  4,  J76,  FMT  )  J  INFLFC 

OECOOfc  t  J,  FMT,  SAVE  )  IfiCLL(ISUBF)  INFLPC 

C  INF  IF  t 

GO  TC  20  INFIPC 

430  INO£*  =  1*S0  ♦  ( ISU6F-1 )/L£NR  INFLFC 

CALL  KtAQMS  <2,IC(UC,  LEN*»  INCE  X)  INFUFC 

CALL  RLAOMS  (2,I0WEC(LCNR*l)»LENR,IN0tX*l >  INFUPC 

00  440  1=1, NUH  INFUPC 

NOX  *  FCOdSUtiF- 1,LENR>  INFUFC 

440  IORE  C  ( NOX ♦ I )  *  INP<I*2>  INFLPC 

CALL  MFITHS  (2,ICRtC,LENR, IN0EX.1)  INFLFC 

CALL  W  F I  IMS  (2  .ICRtC  U.ENR»l),LENR,INOEX*t  ,1)  INFUFC 

GO  TC  20  INFLFC 

C  INFLFC 

tHO  OF  THE  SYSTEM,  WBS  .  t  CUl  PHf  NT  NAME  INPUT  *•••*«•«*•*•  INFLFC 
C  INFUFC 

500  CONTINUE  INFLFO 

C  INFUFC 

C  INITIALIZE  PASS  STORAGE  FILES  9  L  10  IN  TWO  QC-LGOFS.  INFLFC 

C  NOT E I  MS 9  I  MS10  EACH  HAS  A  LOW  ENC  FROM  1  THROUGH  1247  (43  X  29)  (  INFUFO 

C  ANC  MS lQ  HAS  A  HIGH  EN  0  FROM  1251  THROUGH  LENFlO,  INFUFC 

C  LOW  £N0  CF  MS  9  HOLOS  UP  TO  1247  "TOTC"  ARRAYS  FR CH  "ELOGET"  SUBRTN,  INFUPC 

C  »  SUMMARY  TOTAL  ARRAY  OF  10  COSTS  OVER  ALL  APFROPR I AT  I CN$  COGES  INFLFO 

C  FOR  THIS  -tQUr*  ON  THE  “SHIP"  INFLFC 

C  LOW  END  CF  KSIO  HOLUS  UP  TO  1247  "ROW  ARRAYS  FRCM  "SLCCM"  KTN,  INFLFO 

C  =  TOTAL  CCSTS  VERSUS  W8S  OF  UP  TC  29  “ECUI'S"  ON  EACH  CF  INFLFC 

C  UP  TO  <.J  "SHIP":  INFLFC 

C  HIGH  ENO  Of  FS10  KOLOS  UP  TO  43  "TOT"  ARRAYS  FROM  ,,weSCUT(l)"  SuG  R  T  N ,  INFLFC 
C  =  CROSS-FOCT  ARkAY  V6KSUS  Wb  S  OF  ALL  "LOUl"  COSTS  INFLFC 

C  CN  A  UNIT  SHIP  OF  THIS  CLASS.  INFIFC 

C  INFIPC 

OO  506  LlslilENR  INFLFC 

IORECU1I  =  C  INFUPC 

506  CONTINUE  INF  LF  C 

L3  *  I F  EC  (t I  INFUFC 

00  507  L  2= 1 »L  3  INFLFC 

CALL  WFITHS  (9,10RLC,LENR9,L2.-1»  INFLPC 

CALL  wriTMS  (Is,,  IORtC,LfcMK  ,LZ.-U  INFLPC 

507  CONTINUE  INF  Lf C 

DO  5  0 A  L4=INGXTOl. LtNFlO  INFLFC 

CALL  WFITHS  (1G,  10REC , LEHR , L4 * - 1>  INFLPC 

508  CONTINUE  INFLPC 

C  INFLPC 

C  START  COMPONENT  DEFINITION  INPUT,  TPUT,  NFLl,  CER  INFLFC 

C ••  •  SET  "IS F FIG**  TO  1  AFTfc*  1ST  "SfcNO"  SO  CONlFCL  WILL  eUtCH  INFLPC 
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bLPPOUTlNc  INFUPO 


;  k/i* 


FT r*  4 •  c  *43  3 


tf/S  1/7S  23.53.**  1 


c  ••  • 

HE Wt  IMMEDIATELY  AFTER  STATEMENT  “Zf*. 

INP UP C 

469 

IS?  f  LG  =  1 

INFLFC 

450 

C 

INFLPC 

4  51 

7<*5 

c 

INF  IF C 

452 

c 

RE  AO  If  EQUIPMENT  uEFINITICN  OATA 

INFLPC 

453 

910 

COST  IN  LE 

INFLFC 

454 

*EAO  (S,25>  INP 

INFLPC 

4  55 

IF  {  ECF<5>>  fiuJt  92  J 

INFLPC 

4  56 

751 

c 

INFLPC 

457 

920 

CONT  iNLt 

INFLFC 

4  5a 

NRITE  (6.311  INP 

INFUFO 

4  59 

C 

INF  LFC 

5  flu 

c 

uEl EkMlN t  Tht  F I  PST  4  CHARACTERS  OF  IN P 1 1 ) 

INFLPC 

5C1 

7*^5 

CALL  MCVE  (  INP(I),  lv  CHAP,  1,  4  1 

INFLPC 

5C2 

IF  (  CPAR  • £U.  4MNPUT  1  GO  TO  570 

INF  LFC 

5C3 

IF  (  CPAR  • EG.  4HTPUT  1  GO  TQ  96 O 

INFLPC 

5U 

IF  (  CFAS.fcO.  4HcQUI>  GO  TO  95C 

INFLPC 

5C5 

IF  (  CHAR  . £Q«  4  h  St  NO  >  GO  TO  1020 

ISfUFC 

5C6 

?5l 

IF  |  CPAR  .EQ.  4HCER  )  GO  TO  96U 

INF Lf C 

5C7 

CALL  MCVE  (  CHAk.  6,  CHAR,  2,  3  ) 

IsfUfC 

5C4 

IF  (  CPAR  *EQ.  1M*  )  GO  TO  910 

INFLPC 

509 

IF  (  CP Ak  .EQ*  IMS  )  GO  TO  910 

INFLPC 

510 

GO  TO  iai 

INFLPC 

511 

765 

c 

INF  LFC 

512 

c 

INFUFO 

513 

c 

COMTS  HtRC  ON  -tQUI” 

INFLFC 

514 

950 

CONTINUE 

INFLPC 

515 

C 

IKFUFC 

516 

770 

c 

COUNTER  OF  TOTAL  NC.  CF  OIFFERENT  EQUIFMEnT  DEFINITION 

INPUPO 

517 

c 

OATA  INPUT 

INFLPC 

516 

ICCTR  =  ICCTR.  ♦  1 

INFLFC 

519 

c 

INFLFC 

52V 

c 

DEFINE  THIS  EQUIPMENT 

INF UPC 

521 

775 

c  ••  • 

COMPRESS  1ST  6  lCFT  JUST  CHARACTER'S  AS  UNIQUE  NAPE  OF  "EGUI" 

INF  LP'C 

522 

CALL  REFfT  (  INP(2),  NH,  2.  1 H L  ) 

INF  LFC 

523 

FQUI  *  NMIll  .ANC.  MASK 

INF  LFC 

5  24 

c 

INFLFC 

5  25 

c 

DEFINE  A  LOCATION  OR  INOEX  FOR  STORAGE  OF  THIS  EQUIPMENT 

INFLFC 

5  26 

7>. 

c 

INFLPC 

5  27 

c 

LOCAT  -  MASS  STORAGE  3  INDEX  ( 1 6 .  20 , 22  , ET C» 

IfFUFC 

5  2a 

LOCAT  =  I X i SO  ♦  (ICCTR  -  1)  *  2 

INFLFC 

5  29 

c 

INFLFC 

520 

c 

1NCKEHENT  INDEX  FOR  CER  STORAGE 

INF  LFC 

531 

7  -Jf 

INOCER  *  InOCcR  ♦  LtNCtP 

INF  LPC 

5  32 

c 

-ICFR-  ARRAY  IS  T  Hf  TEMPOkARy  STOfiAGt  FOR  THE  INCICES  CF  THE 

INF  LFC 

533 

C  CER 

OATA  FCk  cACH  £ut iPrtfNT* 

INF  LPC 

5  34 

C 

iNOCEr  -  MASS  STOfAGfc  o  INCEX  ( i  ,  1 0 , 1 9, E TC ) 

inplpc 

5  35 

c 

INF  LFC 

53b 

7  "C 

c 

FILL  “Ctfi"  TRIPLtT  MITHI  EOUI/FS-8  I NOt X/ MS- 3  (MS  -  2  )  I  NOE  X 

INFUFO 

537 

rsuacER  *  isuectR  ♦  1 

INFLPC 

5  36 

ICFR  (ISU6CtRl  =  EQuI 

INFLFC 

529 

ISUBCFF  *  ISUBCER  ♦  1 

INFLFC 

540 

ICER  (I SUBCERI  *  INOCER 

INFLFC 

541 

795 

ISU8CEP  *  ISUBCtR  ♦  1 

INF  LFC 

542 

ICER  (ILU0CLR1  =  lOlAT 

INF  UPO 

543 

<:••• 

SAvi  7  PLUS  7  LHfR'S  AS  *'ECUI"  NAME • 

INF  LFC 

544 

NAHESC  (ICCTR.il  =  InP(2)  .AnO.  MASK? 

INFLPC 

«o 
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£ 

INFUPO  7t./7s  UPT*2  FTn  4.6* 4Ji 

*:  7  /  2 1  /  7  9 

23.53 

RAMFSC  (ICCTP..2)  =  IMP  131  .  ANU*  MASK7 

INFLPO 

5  4b 

8  L 

IF  (INMJKEQ.  laH  )  GC  TO  S55 

IKFLPC 

5L7 

GO  TO  51 i 

INF  UP  C 

543 

955 

NArtCsC  (ICCTR.2  )  =  NAMESCUCCTfi  ,1) 

INF  LPC 

5 

NAMESC  (ICCTR.l)  =  l(i H 

IKFLPC 

550 

GO  TO  51,3 

INF LFC 

551 

d  .5 

C 

INFUFC 

552 

c 

T Hr  INPUT  VALUES  ARfc  TPtiT  VALUt  5 

INFLFC 

553 

963 

CONTINUE 

INF  LP  C 

55*. 

INC  =  w 

INF  LF  C 

555 

GO  TO  513 

INF  LFC 

55b 

di. 

c 

INFL'FC 

557 

c 

THf  INPUT  VAlUtS  ARE  NPUT  VALUES 

INF IFC 

558 

973 

CONTINUE 

INPUPC 

569 

INC  »  1 

INF  IFC 

St* 

GO  TG  510 

IKFUPC 

5  El 

a  is 

c 

1NFUFC 

562 

c 

THt  INPUT  VALUES  ARE  CER  VALUt  S 

INPUPC 

St  j 

96  0 

CONT  INLE 

INFUFC 

56*. 

c 

INF  LF  C 

5  65 

c 

INITIALlZt  CEK  INPUT  COUNT  CONTROL 

INFUFC 

5t6 

62C 

CEP C  T  *  j 

INF  LFC 

567 

c 

IMF  UP  C 

566 

981 

CONTINUE 

INF  IFC 

569 

PEA  0  15,583)  CEkcNO, £  FOfcSI »RCWIU,A0010»CERNQ, XfiEF  KO , XREF  AO , 

INF  UP  C 

573 

C  (F  S(II),FS(IIUII*1*€) 

INF  LFC 

571 

825 

983 

FORMAT  (A5.A1, 13,11,15,14, 11.6  (Al,F9.0> ) 

IKFUPC 

5  72 

IF  <  CfflfcNO  .fcC.  5HECES  )  GO  TO  965 

INFUFC 

573 

WRITE  (1,5623)  CtRtNO,tFORSI,RCHIC,AOOIO,CERNO,XREFNQ,xREFAO. 

INF  LPC 

574 

C  (PS  (I I , PS (I), 1*1*6) 

INF  LF C 

5  75 

9823 

FORMAT  ( 1QX,A5,A1, 13,11,15 ,I4,I1,6(1X,A1, FI  3*  6) ) 

IKFUPC 

576 

8  2w 

CERCT  *  CERCT  ♦  1 

INF  LFO 

577 

IFOR  C ( CERCT )  *  t  FOKSI 

IKFUPC 

57t» 

IROWIO (CERCT)  =  ROWIO 

INF  LFC 

579 

IAOO  (CERCT )  =  AOOIO 

INF  UPC 

5  (0 

ICERNO  (CERCT )  =  CchNO 

INFUFC 

5(1 

d  *5 

IX*'EFNC(CE*CT)  s  XkEFNO 

IKFUPC 

5  (2 

IXPEFAC (CERCT)  =  XkEFAO 

INFUFC 

5(3 

00  984  1=1,6 

INFUFC 

5(4 

IF ST  CRT (  1  ,CEkC  T)  *  FS(I> 

INFUFC 

5(5 

PSSTORt  (  I.LEkcT)  =  PS  (I) 

IKFLPC 

5(6 

8*-  * 

984 

CONT INLE 

INF LFC 

5  (7 

GO  TC  581 

INFUFC 

5  (8 

c 

IKFLPC 

5  (9 

985 

CONTINUE 

INF  UPC 

56d 

WRITE  (6  ,9d6)  LtkEND 

INF  IFC 

5*1 

8**5 

986 

FORMAT  (  10X,  AS  ) 

INFUPC 

5  *2 

CFRCTXE  =  CERCT  ♦  6 

INF  LFC 

5  ‘3 

c 

STORE  "LEW**  DATA  FOR  THIS  ••EQUIP**  ON  MS  8  AT  iNOtX  "INCCER" 

INF  LF  C 

5*4 

CALL  wf I  TPS  (d.CtRCT  ,1  tlNCCER  ,L) 

INFUFC 

5*5 

CALL  W  f>  I  TMS  (6,1  FOhC  ,  CERCT  « INCCER*  1, 1) 

INF  LPC 

5  *6 

a?: 

CALL  WFJTPS  (8  ,  InQ  w IQ  ,CEKCT  ,INCCEF*2,1> 

IKFLPC 

5  67 

CALL  WFITMS  U,I«OG  .CERCT  , IhDCFRO.ll 

INF LFC 

568 

CALL  WFITMS  (ti.ICLRNO  , CERCT  ,1 NCClR*u , 1 ) 

INF LFO 

5*9 

CALL  WFITMS  (0»IXRtFNC , CEkCT  ,INCCEM5,1) 

INF  L  F  C 

6CU 

CALL  WFITMS  (o ,IXREFAU,CFRCT  ,lNCCER*6,l) 

INF LFC 

601 

8*6 

CALL  WFITMS  18 ,IFSTOR£,CERCTX6,lNCCER*7,l  ) 

INF  IPO 

6  02 
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SUthOUTI^  INPUPO  7  <</ r  i,  OF  T-7  FT  N  -..6*1,33 

,7/ 21/79 

23.53 

CAUL  WIITMS  (6,PSSI0*t*CtFCTX6,IN0aR»-.,l) 

INPUP  C 

603 

GO  TG  9 1  3 

INPLPC 

6C4 

c 

INPLPC 

6C5 

c 

END  0  F  ]  H£  LOUl  PM6NT  GEFINIIION  CAT  A 

INF  LPC 

6C6 

3  EC 

c 

INF  UP  C 

6L7 

16  2U 

CCNT INLE 

INF  UP  C 

Et9 

C 

INFUPC 

6C9 

C 

STORAGE  CF  EQUIPMENT  TPUT/NPUT  INCFX  INTO  T  He.  "IREC**  AfikAY 

iNf  LPC 

6  \j 

N  =  IFtC  (1)  •  3 

INP CFO 

6  11 

OO  I03o  J*1,1SUOCEf  ,  J 

INPLPC 

612 

c.QU  I  =  ICEk  ( J ) 

INPLPC 

613 

LOCAT  =•  ICfcR(J*2> 

INP  LFC 

614 

CO  1G25  1*3, N, 3 

INF  LF  C 

615 

IF(cQUI,Nt. IkcC (I > )  GC  TO  1025 

INPLPC 

616 

art 

IREC  II «ll  =  LOCAT 

INPLPC 

617 

10  25 

CONT  INLE 

INPLFC 

eia 

1J3C. 

CONTINLE 

INFUPC 

6  19 

C 

INf LFC 

620 

CALL  HMThS  (  2,  IkECt  LENR 17  *  IXSS,  1  ) 

INPLPC 

6<1 

e75 

C 

INPLPC 

622 

501 

FOkHAT  (  2.13  1 

INF  LPC 

623 

5u  11 

FORMAT  (  10X,  2013  ) 

INPLPC 

624 

C 

INf LFC 

6  25 

C 

INPUT  THE  CHART  GENERATION  CONTROLS 

INPLPC 

626 

PE AO  (6,251  INP 

INFUPC 

627 

WRITE  U,U)  INP 

INF  LPC 

629 

REA 0  (5,511)  ChRTCNT 

INF  LFC 

E  29 

WRITE  (6  «5oll)  CHRTCNT 

INFLFO 

633 

c 

inflfc 

6  21 

33f 

c 

INPUT  TITLE  ANU  SHIP  INSTALLATION  SCHEOOLE 

INPLPC 

622 

REA  0  (  5  ,  <5  )  INF 

INF  IPC 

633 

WRITE  (6,31)  INP 

INFUPC 

6  24 

c 

INf LPC 

6  25 

REAO  (5 ,5  012)  NOYRS , IYEARS 

INPUP  C 

6  36 

3«L 

IYFS  *  NCYKS  «■  1 

INf LFC 

6  37 

53  12 

FORMAT  (I5,6X,12I») 

INPLPC 

636 

WRITE(C,*013)  NOYRS* ( IYEARS (K) ,K=1,NOYnS) 

INf LPC 

6  29 

50  13 

FORMAT  ( 1  uX ,  1 4,  *  YEARS  1  * , 1 2 15 ) 

INFUPC 

640 

00  502  1*1, NuS  IP 

INPLPC 

641 

9  95 

READ  (5 ,5  13)  ISlNSTij (I ,K ) ,<*1, 1 YRS ) 

INPLPC 

642 

WRITE  1  e  ■  5u4l  (SINSTbl  I,  <) ,  K*  1 ,  IYRS) 

INFUPC 

643 

5U3 

FORMAT  <A6,4X, 1215  I 

INPLPC 

6  44 

504 

FORMAT  (1UX, AE, 4X , 1215) 

INFLFC 

645 

SNAME  *  S  INS To ( I , 1 )  #  AMO*  MASK 

INf  LPC 

646 

5  j  0 

SINS TB  (1 , 1 1  =  SNAMt 

INP  UP  C 

647 

502 

CONTINLE 

INPLFC 

649 

RE  AO  (5 , 25  )  INP 

INP  UFO 

6  49 

WRITE (E, 31)  INF 

INFLFC 

650 

601 

FORMAT (1EI5) 

INFLFC 

651 

9  .5 

602 

FORMAT  (13X, 1615) 

INFUPC 

652 

REAO  (5  ,6)1)  NOFLY 

INFLFC 

653 

WRITE  (E.6J2)  NOFLY 

INF  LFC 

€5h 

REAO  (5,601)  (IFLYKO W (K ) ,  K* 1 , NOFLY ) 

INF  LFC 

665 

WRITE  (6,602)  ( I FL  YRQW  (  K)  ,  K*  l ,  NOFLY) 

INF  LFC 

656 

91. 

C  RFAO  IN  F  Ivt  LlNtS  OF  FOOTNOTES  FOR  CUTFUT  CHARTS 

INf  LFC 

657 

00  63  P* 1 , 5 

INFUFC 

656 

REAO  (5,25)  (FNCTtS  < M ,  L  )  ,L *  1  *  1  2  ) 

INPUFC 

659 
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UPP  OUT  I  Nti 

Infuro  *<*//<•  opr  =  2 

FTrJ  ... 6*433 

jl/ll/7 9 

23.53 

wPITE(c,6J4>  IFNOTtS  {H,LI  *L»1»  121 

INf  LFC 

660 

61* 

CONTINLE 

INf  LFC 

661 

604 

FORMAT ( 1  5X. 12A 11 ) 

INF  IPO 

662 

C 

BUllQ  HCfiKlNG  FXLJ13) 

INF LFC 

663 

DO  505  1*1. Lt  NF 

INF  LFC 

664 

505 

IOKEC(I)  =  3 

INFLFC 

665 

CHAR  =  10H 

INf LFC 

666 

C 

INf  LFC 

667 

c 

DO- 

L COP  51  *  INITIALIZES  *#LLNF“  (100)  RlCOPDS  CN 

MS3 

TC  ZERO 

infufc 

660 

c 

INFLFC 

6t9 

00  510  I*l.LtNF 

INf UFC 

670 

513 

CALL  HFIlNS  IS  ,iCfitC»LENK*I.-l ) 

INf  LPC 

671 

5  20 

INDEX  *  IXWQ5 

Iff  LP  i 

6  72 

INCX3  =  1 

INF  LP  C 

6  73 

NFfc'C  *  LH0S 

INFLFC 

674 

IGOTO  *  3 

INf UPC 

675 

GO  TO  6J3 

INFLFC 

676 

530 

INDEX  *  I  X‘_»D 

INFLFC 

677 

IN0X3  =  LMDS  ♦  1 

INFLFC 

6  7  6 

NR  EC  *  LSO 

INFUPC 

679 

IGOTC  *  3 

INFUFC 

6  10 

GO  TO  60J 

INf  LFC 

6  (1 

540 

CALL  RtADHS  (  2,  1KEC.  LENR17 .  IXSS  1 

INf UPC 

6(2 

IGOTO  *  * 

Inf  ip c 

6(3 

NCER  *  3 

INFLFC 

664 

NffEC  *  1 

•  Inf  uf  o 

6  (5 

IC  A  0 

INFLFC 

666 

550 

CONTINUE 

INF  LFC 

6  (7 

IC  =  IC  ♦  1 

INFLFC 

6  to 

IF  1  IC  .GT.  ICCTR  1  GO  TO  7)0 

INFUFC 

6  (9 

INOEX  s  ICLR(NCEK) 

INFLFC 

6Su 

INOXJ  *  INCEX 

INF  LFC 

6<1 

NCER  a  NCfR  ♦  J 

INFUPC 

6*2 

c 

INFLFC 

6  *3 

c 

00- 

LOOP  66  C  ANO  INCLUDED  (NESTED)  CO-LOOPSl 

INFLFC 

6  <4 

c 

-  REAOS  "AS  IS-  INPUT  FECOPOS  FROM 

MS  2 

INFLPC 

655 

c 

-  TKANSLA  ItS  "AS  IS"  INTO  "F-HOTAIION"  (FI. «  FlO.OI 

INFUPC 

6  <6 

c 

ACCOROING  TO  THt  NUMPEK  OF  SIG  MF  IC  ANT 

CHARACTERS 

INFLFC 

6  <7 

c 

(SUM  OF  OIGITS  ♦  OEC1MAL  PCIWT  ♦ 

(MINUS)) 

INFLPC 

6*6 

c 

-  WRITES  -F-NOTATXCN”  CATA  (“IOFEC" 

)  CN 

MS  3 

INFLFC 

6  ‘9 

c 

INF  LFC 

7  10 

t  00 

CONT 1 NUE 

INF  LP C 

701 

00  660  1*1. NFEC 

INFLPC 

702 

CALL  F6A0MS  (2  .  luRtC  ,  Lt  NR  ,  INQt  K-l ) 

INFLPC 

7C3 

00  650  «.*  J  «LE  NR 

INFLFC 

704 

IPER  *  0 

INF  L  PO 

7  o5 

I0K  *  i 

INFLFC 

7  16 

INEG  *  0 

INFUPC 

7  07 

NUH  *  C 

INF  LFC 

7C0 

00  630  K= 1 » 10 

INFLPC 

709 

CALL  MCV6  ( IGktL ( J) .K.CMAk .1. 1 ) 

INFLFC 

7  10 

IF  (CHAK.Nt.lH  )  GO  TO  610 

INFUPC 

7  11 

IEK  *  IBK  ♦  1 

INFUFC 

712 

GO  TC  630 

INFLFC 

713 

blO 

IF  ( CHAR  .NE.1M. 1  GO  TO  615 

INFUPC 

7  14 

IF  (!PEF«Nt.«{ll  GO  TO  656 

INFLPC 

715 

IPER  *  1 

INFLFC 

7  It 
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U6«0UT iNt 

iNfUPO  i4/74  OP T*2  FTN  *.e*<33 

u7/3l/7« 

25. 53.-1 

GO  TO  F2 5 

INF UFC 

717 

615 

IF  ( CMAR*Nc« 1H-)  GO  TO  620 

INFUPC 

7lb 

IF  (INFG.NE. ».)  bu  TO  660 

INF  IP  C 

719 

IN€G  =  1 

INFUPC 

720 

GO  TC  625 

INFUPO 

721 

620 

IF  ICH4K.LT. lHu.OR.OHAft.GT .1H9 )  GO  TO  650 

IKFLFC 

722 

625 

NUM  =  KUM  ♦  1 

INF  IRC 

7  23 

CALL  MCVt  tCMAf*,l,  SAVE,  NUM,  1> 

INF  IFC 

724 

630 

CONT IN  UC 

INF  UP  C 

7  25 

IF  (IB*  .CQ.  Iji  GO  TO  645 

INF  UF  C 

7  2b 

ENCODE  (  7  ,643 , FNT )  NUN 

INF  UPC 

727 

64u 

FOP  HAT  <2H<F*12»3H.Q) » 

INF LFC 

72« 

OECOCfc  (NUM.FmT, SAVE)  I OREC  1 J ) 

INF  UP  C 

729 

GO  TC  t£0 

INF  IFC 

7  3  J 

645 

IOFEC4J)  =  a 

INF  IP  C 

721 

650 

CONTINLE 

iNf UFC 

722 

6  €  0 

CALL  HFITNS  <  3  , 1 Ofi EC , LE K* , IN0 X 3*L-1 » 1 ) 

IN  F  UF  C 

723 

GO  TO  IS 20 •  530*  54J,  550),  IGCTO 

INFUPC 

7  24 

700 

CONTINLE 

INF  UFO 

7  35 

C 

INFUPC 

7  26 

C 

SETUP  THE  IkOfiO  ARR  A  Y  CONTAINING  APPRO.  CC0£ . 

INFIFC 

727 

c 

WES  ELEMENT  OlFINITION  anc  equation  number. 

INFUPC 

72  6 
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INF IFC 
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RETURN 

INF  LFC 
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CONTINUE 

INF UFO 
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SU8RCU TINE  WfaSOUT  (ICALL) 

NB  S  OUT 

2 

C 

GENtfiAL  TITLE. 

Tu  3L  U3tc  ON  ALL  LHAF1S 

GENTLE 

2 

COMHCN  /  GLNTLl 

/  TITL:  M> 

GENTLE 

3 

INTEGER  TITLE 

GfcNTLE 

4 

c 

NFL  T 

2 

c 

c 

NFL  T 

4 

c 

V  AR 

IOUS  CTEEfi  ARRAYS 

Akl  E  OU I V  ALlNCLO  TO  THE  **AR  A  Y*’  ARRAY  AS  INI 

NFL  1 

5 

c 

nplt 

6 

c 

- 

SlCCM  1  rtCW 

Art  AY  ( 1 . 1) 

NPU  T 

7 

c 

- 

8U0GET  1  CG 

S 

AfiAY (li 2) 

NPL  1 

6 

c 

- 

IN  PUP  C  l  lOrscC 

= 

ArtAYCl.il 

NFl  7 

9 

c 

- 

COMPCMPt  ROW 

s 

AhAY (1, 1) 

NPUT 

10 

c 

- 

AFCELM  1  IRAY 

= 

ArtAY (1, 1) 

NFLT 

11 

c 

NFL  1 

12 

COHMCN  /  NPUT 

/  AKAYI15&.2I 

NPUT 

13 

c 

NFL  1 

14 

c 

MS  2 

2 

c 
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(LLNoTh  ANC  COUNTEkl  CCNNON  •*•»•*•»*♦«*#♦*• 

MS  2 

3 

c 

MS  2 

4 

c 

MS  i 

5 

c 

LENA 

-  I1AS3  STORAGE  UNITS  CCHMCN  RECORC  LENGTH 

MS  2 

6 

c 

(TYPICALLY  15D) 

MS  2 

7 

c 

NWQS 

-  number  of  elements  in  the  cbs  <nax  iso> 

MS  2 

a 

c 

ICCTR 

-  NUMBER  OF  EOUIFhENTS  IN  THE  eQCIFKENl 

MS2 

9 

c 

tLEMLNTS  TABLE 

MS  2 

lfl 

c 

L  15  0 

-  (150  HOkCS)  KtCCFD  LENGTH  OF  7  ARRAYS 

MS  2 

11 

c 

IN  THE  "CErtVLS”  CONN  CN 

MS  2 

12 

c 

L  93  Q 

-  (SOU  WORDS)  Ft  CORO  LENGTH  OF  2  ARRAYS 

MS  2 

13 

c 

IN  THE  "CERVLS*’  COMMCN 

MS2 

14 

c 

MS2 

15 

CONN CN  /  MS2  / 
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MS  £ 

lb 

c 

MS  2 

17 

c 

MS2 

16 

c 

MS  2 

19 
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SYST 

2 

c 
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** 

SYST 

3 

c 

SYST 

4 

c 

NMSYS 

-  NAME  OF  THE  SYSTEM 

SYST 

3 

c 

Noste 

-  TOTAL  NUMBER  OF  SHIPCIASSES  COKSI C6RED 

SYST 

b 

c 

NHSU6 (  .  ) 

-  NAHfc  OF  THE  SHIP CL  ASS  IN  TWO  WORDS 

SYST 

7 

c 

NGCCMM  ) 

-  INDEX  NUMBER  FOR  EQUIPMENTS  (COMPONENTS) 

SYS  T 

0 

c 

(RUNNING  TOTAL  FOR  EQUIPMENTS) 

SYST 

9 

c 

NMCCMF (  ,  ,  > 

-  NAMES  OF  EQUIPMENT  (2  WCROS)  F CK  TITLES 

SYST 

Id 

c 

IN  W0SOUT  (INOEXcO  eY  £  CU IP ME NT  NUMBER 

SYST 

11 

c 

AND  SHIPCLASS  NLM6ERI 

SYS  T 

12 

c 

NAN  ES  C  i  ,  ) 

-  NAMES  OF  EQUIPMENT (2  WORDS.  7  CHARS  EACH) 

SYST 

13 

c 

FOrt  EQUIPMENT  QUANTITIES  TABLE  -  FLEET 

SYST 

14 

c 

summary 

SYST 

15 

t: 

EOUI 

-  PRESENT  EQUIPMENT  (BtING  FkCCESSED) 

SYST 

lb 

c 

SHI FN  M 

-  PkESLNT  SHIPCLASS  (BEING  PRCCcSSEO) 

SYST 

17 

c 

SYST 

16 

f 

SYST 

19 

CONN CN  /  NAMES 

/  NMSYS.  NOSL6,  NMSUb  (2  .*.3)  .  NCCGMP(43)i 

SYST 

20 

1  NRCGMPI3  ,  1G  U  ,  G3)  .  SAME  5C(UL,2I.ECUI,SHIFNH 

SYST 

21 

INTEGEP  cCUl.SMlFNM 

SYST 
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sc 

SYST 

23 

A- 40 


•3" 


jUf.f  yUTINE 

M6SUUT  i4/?4 

Of  Tc 

2  FTN>,,c  +  933 

o7/3i/?« 

23. 53, 

c 

SYST 

24 

c 
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CuUNT  OF  01 F  Ftf.  t  NT  A  PfR  C=»RI  AT  I  0  P  COOES 

SYST 

25 

fc  L 

c 

APPRO <  ) 

- 

APPROPkIaTIC P  CCOc  NAMES 

SYST 

2b 

c 

SPCLI  .  ) 

- 

PtWCcNT  AGES  FOR  CBS  t  LE  MtNT  COST  SPLITS 

S  TST 

27 

c 

NPH 

- 

LOUNT  CF  THE  Lift  CYCLE  FHASiS 

SYST 

28 

c 

IFH  (  ) 

- 

FIRST  CBS  EL  t  HE  NT  NUMBER  OF  EACH  PHASE 

SYST 

29 

c 

IPB  (  ) 

- 

LBS  tLEMtNT  SUMetF  FOP  PAGE  BREAKS 

SYST 

2V 

c 

(LAST  CBS  NUMBER  EOF  THE  PAGE) 

S  TST 

21 

c 

IPMASf  1  ,  ) 

• 

TITLtS  OF  CBS  PHASES 

SYST 

22 

c 

FLEET? 

- 

fleet  (system)  size 

SYST 

23 

c 

N&OLL  (  ) 

- 

LOWEST  COST  LLtMtNT  LEVEL  TO  Be  PRINUO 

S  TST 

34 

c 

(LOWEST  LFVtL  TC  Ee  wULlEC  UP  WITHIN  PHASE) 

SYST 

25 

7  a 

c 

POT  CT 

- 

TOTAL  ROUl  cost 

SYST 

2b 

c 

TOT  IN  W 

- 

TOTAL  INVtSTMENT  COST  MINUS  TOTAl  RIfOUT 

S  TST 

27 

c 

TOTPIf 

- 

total  wifout  cost 

SYST 

28 

c 

SHI  c 

- 

missile  ROT  it  COST 

SYST 

39 

c 

NOFLY 

- 

NUMBER  OF  CBS  ELEMENTS  TO  BE  INCLUCEC  IN 

S  TST 

4G 

?c 

c 

flyaway  costs 

SYST 

41 

c 

IFLVRCW*  > 

- 

CBS  CLEMENT  NUMBER  FOR  FLYAWAY  COSTS 

SYST 

42 

c 

NOYRS 

- 

NUMBER  OF  YEARS  IN  SHIP  INSTALLATION  TABLE 

SYST 

43 

c 

IYEARS 

- 

YtARS  COVEWEC  BY  THE  SHIP  INSTALLATION  TABLE 

SYST 

44 

c 

IYPS 

- 

NUMBER  OF  YEARS  IN  SNIP  INSTALLATION  TABLE 

SYST 

45 

.1C 

c 

PLUS  ONE  (COLUMNS  FOR  PRINTING  SHIP/INST  TABLE) 

SYST 

46 

c 

FNOTES (  ,  ) 

- 

FOOTNOTES  F0)  FIRST  TWO  HAJOF  OLTPUT  CHAFTS 

SYST 

47 

c 

SYST 

46 

common  /  msc 

/  NM 

PrAPP9C(7),  SPCL  (i,  (,2l,  ,NPH,  IPH(A)  ,IP0(i)  , 

SYST 

49 

1  IPHASE.2, 

LI  ,  FLEEU.hRoLL  (A)  ,RCT0T,  TOT  IN  V ,  T  C  TUP  , 

SYST 

50 

i* 

2  SMlSHO.NOf LY, I  FLY  MOW (25 ) .NOYRS, I  YEARS) 12) , IYRS, 

SYST 

51 

3  FNOTES (5  « 

12) 

SYST 

52 

INTEGER  APPRO, 

SPCL 

.FLEETZ 

STST 

53 

c 

SYST 

54 

c 

SMI  HNS 

2 

c 
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*««•••••  HAHRmY 

(IRtC  ARRAY  )  CCfMQK 

SHI f INS 

3 

c 

SHiFINS 

4 

c 

sn  iins 

5 

c 

THE  IRtC  ARRAY 

IS 

A  SINGLY -SUBSCRIPTED  ARRAY  WHOSE  FIRST  POSITION 

SHIFINS 

6 

c 

IS 

THE  TOTAL  NUMBER  CF 

UNIOUE  SHlPCLASS/tQUlPHENT  CO  He  I NA T IONS . 

SHIFINS 

7 

95 

c 

oe 

NEXT  THRcE  POSITIONS  START  A  SfcRIES  OF  TRIPLETS  WHOSE 

SHI  TINS 

6 

c 

MEMBERS  ARLl  SHIPCLASS 

NAME,  EQUIPMENT  NAMt,  HS  3  INOEX. 

SHIFINS 

9 

c 

IfiEC  <11 

- 

THE  RUNNING  SUM  CF  TmE  TOTAL  NUMBER  CF  UMCUt 

SHl  f  INS 

13 

c 

SHIPCLASS/EQUIPMEN1  COMBINATION  IN  THE 

SHIP  INS 

11 

c 

LQUlPMtNT  LEVEL  INPUT 

SHI  IINS 

12 

nc 

c 

IREC(2,5,ii. 

- 

THt  NAME  OF  THt  SHIP  CLASS 

SHiFINS 

13 

c 

11  ,  ETC) 

SHl f IKS 

14 

c 

I*tC ( 2  ,6,9 

- 

THE  NAME  OF  THE  EQUIPMENT 

-HIP1NS 

15 

L 

1 2 , E  TC) 

SHIFINS 

16 

c 

IREC(4#  7, 10 

- 

lNOtX  FOP  MASS  STORAGE  UNIT  3.  AN  INTlGFR 

SHIFINS 

17 

1’5 

c 

12, ETC! 

NUM  B  CF  BEGINNING  A  1  >*  A  NO  I  NCRt  RENTING  BY 

SHl FINS 

16 

c 

2  Tu  FORM  18 ,2a ,22, 24, ETC.  THIS  INDEX  IS 

SHiPINS 

19 

c 

THt  STARTING  LUCATION  OF  A  RtCOKO  (LENGTH! 

SH  fins 

20 

c 

**NWeS  WORDS**)  ON  MASS  STORAGE  3  WHICH 

shi  tins 

21 

c 

CONTAINS  THE  UNIT  COSTS  OF  THE  EOLIFMtNTS 

SHIFINS 

22 

11. 

c 

UN  A  UNIT  SHIP  (COMPLTEt  bY  SUBROUTINE 

SHiFINS 

23 

c 

COMPCMPI , 

SHIFINS 

24 

c 

SHIFINS 

25 

COMHCN  ✓  MmRRAY  / 

IRiC  (375GI 

SHiFINS 

26 

c 

SHIFINS 

27 
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*♦**  SHlFlNS 

(SHIP  SUMMATION  AND  INSTALLATION  TAblL)  CCM.lCN 

SM1FINS 

28 

c 

SPI F INS 

29 

c 

SMI  PS  LN!  (  )  -  CONTAINS  THfc  TOTAL  NUH8t*  OF  UNIT  SHIPS  FOR 

SHI F IKS 

2u 

c 

cACH  SHIP  CLASS  FGLKO  UY  INSPECTION  CF 

SHif IKS 

!l 

c 

THL  SHIP  INSTALLATION  TABLE 

SPI FINS 

22 

12C 

c 

SIMSTE  ( 

,  >  -  THE  SHIP  oefloypent/ installation  scheoull 

Shi  FINS 

23 

c 

table*  fok  each  ship  llassi 

SHIFIKS 

2  4 

c 

SINSTE(X,i)  -  SHIP  CLASS  NAME 

SHIFIKS 

25 

c 

SINST6(X , 2-7)  -  THE  YEARLY  NUMBERS  OF 

SHIFIKS 

2b 

c 

UNIT  SHIPS  OF  This  CLASS  TC  6l 

SHIFIKS 

27 

125 

c 

OEFLOYEO/INSTALLtO 

SH 1 F I NS 

2b 

c 

SHIFSM 

)  -  T He  TOTAL  NUMBER  CF  UNIT  SHIPS  FOR  EACH 

SHIFIKS 

29 

c 

SHIP  CLASS.  IT  IS  THF  SAME  COUNT  AS 

SHI  FINS 

44 

c 

SHIPSUM,  HOWEVER,  IT  IS  DEFINED  IK  A 

SHIFIKS 

41 

c 

SPECIFIC  OROfeF  AFTER  £* SO R-CMS CK INC  IN 

Shi F IKS 

42 

i  r. 

c 

iLCCH'S  NESreU  CO-LOOPS  WHICH 

SHI  FINS 

43 

c 

oetekhinc  the  total  costs  by  ship  class 

SHI f IKS 

4*. 

c 

SH  FINS 

45 

CONN  CN  / 

SHIPINS  /  SHIPSUM  (43)  ,  SINSTE  (43  ,7)  ,  SHIFSM4-) 

SMI  HNS 

46 

INTECEP 

SHIPSUM,  S INS  TB  *  SHIFSM 

SH1FIKS 

47 

1  15 

c 

L  1 T  A  e 

2 

c 

CSTAfc 

3 

c 

QCNFT 

-  QUANTITY  OF  FQUIFMENT  ALFtAOY  DEPLOYED 

CSTAB 

4 

c 

(0  l  S  1  OVEN  ALL  SHIPCIASSES  (Cl)  (INTEGER) 

CSTAB 

5 

c 

0CNPT2 

-  QUANTITY  OF  LOU  IPMFNT  TO  BE  flflKUF  ACTURCR 

CSTAB 

b 

14* 

c 

INST  AC  tt.  0  iINVESTHtNl)  OVER  all  SHIClASStS 

CS1  AE 

7 

c 

(Q2)  (REAL) 

CSTAB 

8 

c 

CST ABl E 

•  SINCLY-OINENSICNEO  AHk  A  Y  WHOSE  KcHBEwS  AFE 

CSTAB 

9 

c 

A  SERIES  OF  l 

CSTAE 

U 

c 

--SHIFCLASS  NAME 

CS1A6 

11 

145 

c 

--0  V  S  QUANTITY  CF  EQUIPMENT  FOR  EACH 

CSTAB 

12 

c 

SHIP  ON  A  PART  I CULAR  SHI  Ff L ASS 

csiAe 

13 

c 

--INV  QUANTITY  OF  EQUIFHENT  FOR  EACH 

CSTAE 

14 

c 

SHIP  ON  A  P  A  <  T I CULAR  SHIPCLASS 

CSTAB 

15 

c 

(THtSfc  THFEE  mehbefs  ARE  GIVtN  for  each 

CSIAE 

lb 

lcC 

c 

SHIP  CLASS  MAKING  a  ScRIES  OF  CATA  TRIPLETS) 

CS7A8 

17 

c 

(VALUES  ARE  INTEGER) 

CST  AB 

16 

c 

CSTA0EL 

-  SUGLY-OIMENSIONEO  AKPAY  OF  THt  INVESTMENT 

CS  1  A  s 

19 

c 

QUANTITY  OF  EQUIPMENT  FOR  EACH  SHIP  ON  A 

CSTAE 

2a 

c 

PARTICULAR  SHIPCLASS.  0  AT  A  ELEMENTS  MUST 

CST  a  e 

21 

1^5 

c 

bt  STORED  IN  THE  S  AM  t  SHIPCLASS  ORCEfi  AS 

CSIAE 

22 

c 

CSTA8LC.  THE  TKO  ARRAYS  MAY  BE  THOUGHT 

CSI  A0 

23 

c 

OF  AS  A  SERIES  OF  CATA  CUAORUPLETS. 

esi  Ae 

2*. 

c 

CSTAB 

25 

c 

CSTAE 

2b 

le  C 

CONHfH  /CSfAe/QCHPUlG!:i,QLn<,T2(i01>.C:>TABLtl3?5  0).CjTABi.L(125:l 

CSIAE 

27 

IMTECtf 

QCMPT , CS I  A  L  Lu 

CS  T  A  6 

26 

c 

APR  AY 

CCNT  A  In  I  Nv,  APPRC  LOCE  ,  L8S  NUMBER,  COST  ELEMENT  10 

AFt LOUT 

2 

CONN  CN  / 

APELOUT  /  I hORO ( 15 3  *  5  ) 

APt  ICUT 

3 

t‘5 

c 

CHA  FTS 

2 

c 

c 

CHA  FTS 

4 

f 

ChA  FTS 

5 

c 

CHRTCKT 

CONTAINS  THl  HAJOP  OUTPUT  CHART  CONTROLS 

CHA  FTS 

b 

c 

w  -  GtNLRATC  CHANT 

CHA (TS 

7 

1  7Q 

c 

l  -  NO  GENERATION  OF  CHART 

CPA  FTS 

6 

r 

CHA  FTS 
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CHRTCM  { 1) 

IF  cOUAL  TU  C  -  CALL,  mESOUTUI  FC9  lQUIFMlM 

CHA  f TS 

1U 

c 

l  L  -  M  i  NT  L IF  t  CYCLE  COSTS  -  Fl£i_T  SUMMARY 

CHE  FTS 

11 

c 

CHRTCNT 12) 

IF  EQUAL  TO  „  -  CALLS  W0^OUT(2)  FO-?  UNIT 

CM  f  TS 

12 

c 

SHIP  COSTS  BY  c  CUI  FM'NT  ‘LcfillT 

CHAFTS 

13 

c 

- 

IF  NF. •  TO  0  -  CALLS  nESTOT  PECAUSt 

CHA  FTS 

14 

c 

H0 SOU T ( 2 )  HAS  NCT  CAICEC 

Ch/ F TS 

15 

c 

CHrtl’CM’U) 

IF  EQUAL  TO  ..  -  CALLi  H9SOUH3)  FOR  SHIP 

CMfTS 

16 

c 

CLASS  SUMmAkY 

CHAFTS 

17 

c 

CHRTCM  ) 

IF  EQUAL  TO  0  -  CALLS  BCOGOF  FOR  LIFE 

lha  fts 

16 

c 

CYCLE  COSTS  6 Y  BUOGET  AFPROFkI atioks 

CM/ FTS 

19 

c 

CHR  T  C  M  (5 ) 

IF  Nt.  TO  J  -  CALLS  PQLCNT  F CR  OUTPUT  0Y 

CF  A  FTS 

2J 

c 

rOLL-UF  NUM 6  F R 

CHAFTS 

21 

c 

CHRTCNT ( 6 ) 

IF  lOUAL  TO  j  -  LISTS  T  H-  SUGTlS  ARRAY 

CHA  FTS 

22 

c 

F On.  lNIIRE  C6S  FOR  FkOOFING 

CH/F  TS 

23 

c 

LH  F (TS 

cs 

c 

CHAFTS 

25 

COMMON  /  CHARTS 

/  CMFTCHTdSl 

CHARTS 

26 

INTEGEF  CHKTCNT 

CH/F IS 

27 

c 

A  F*  A  Y  Oc  FINING 

I  he  poll-up  input  numbers,  total  colnt  of 

"OL  LPCT 

2 

c 

COST  ELlHEnTS 

WITH  SPECIFIC  ROLL-UP  NUMBERS  TO  BE  OUTPUT, 

fi  CL LFCT 

3 

c 

AfiK/Y  OF  SELlCTlO  Hts S  ELEMENTS  NUMBERS,  SELECTED  RCU.-UF 

RCL  LPCT 

•* 

c 

OUTFUT  FLAG 

R  Cl LFCT 

5 

COMMCN  ✓  ROlUPCI 

/  ISULIU50),  PCLLTGT,  fiOLLSL « 15u ) ,  ROLLFLG 

kOlLFCT 

6 

INT£GEk  ROLLTOT, 

RulLiL,  RCLLFL& 

KClUPCT 

7 

c 

rclufct 

6 

c 

p  CL LPCT 

9 

c 

POL  LPCT 

10 

c 

M6SCUT  kOUTINE 

CUMFUTEO  VALUtS,  ARRAYS  AND  CONTROLS  NtEEtC 

CtTCNTS 

2 

c 

FOR  THE  CUTl  SUPFOUllNt 

U LI  CUTS 

3 

c 

KSC  ARRAY 

-  SHIP  NAMES 

CUTCN  TS 

4 

c 

IPLCCL 

-  OUTPUT  COLUMN  FLAG 

OL1CNTS 

5 

c 

=  0  COMPS  OR  SHIPS  LESS  TMAN  R 

OLTCNTS 

6 

c 

=  l  COMPS  CR  SHIPS  GREATER  THAN  1 

CUTCNTS 

7 

c 

=*  2  LAST  SfcT 

CU1CNTS 

8 

c 

IPG 

-  paging  flag 

CUTCNTS 

9 

c 

FMTltJ  ARRAY 

-  ENCOuEC  FORMAT  110 

CLTCN  TS 

10 

c 

FRT12J  mRRAY 

-  ENCOCED  FORMAT  120 

CU1CNTS 

11 

c 

KPR  ARRAY 

-  COMPONtNT  OR  SHIP  NAMES  FC«  COLUMN  Ht API N GS 

OUTCNTS 

12 

c 

KC,  K  t 

-  INDICES  FCK  TPt  KP*  ARRAY 

CUTCNTS 

13 

r. 

ITOTAL 

-  HOLLERITH  CHARACTERS  'TOTAL* 

OUTCN  TS 

14 

c 

TCT  ARRAY 

-  SUMMATION  AKRAY  FCR  FINAL  COSTS  CF  tlTPEF 

C  L  T  c  M  S 

15 

c 

COHPONcNTS  Ok  SHIPS 

OUTCNTS 

16 

c 

KCT 

-  INDEX  FOii  THC  »NORC  ARRAY 

OLTCNTS 

17 

c 

AROi-O  ARRAY 

-  CONTAINS  THC  COSTS  FOR  ALL  THE  NM  6  S  VALUES 

CL  TCMS 

16 

c 

FOR  AT  MUST  10  CCMFGNtNTS  OR  <HIFS 

OUTCNTS 

19 
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CLTCNTS 

20 

1 

KPP ( 2  0 1 ,  K  C  ,  «1»  I-OTAL.  TGTUSOI,  *CT, 

CUTCNTS 

21 

2 
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CLTCNTS 

22 

3,PMT1B3I>.),KHOH)<3I>JNOYO(  II.OMiFotlk.l,  YutuFlY.SHIFFLYIAll 

CU  JCNTS 

23 

4 .TOTSHIF 

CLTCNTS 

24 

c 

CtR VLS 

2 

c 
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3 
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C  tR  VL  S 

4 

c 

CEPVLS 

5 

c 

THc  CERVLS  COMMON 

CONTAINS  LOCATIONS  f  STORAGE  OF  THE  CEP 

CfcRVlS 

6 

c 

INPUT  CARO  CCUNT,  THt 

SOW  ID'S,  Tm*-  CEr  tClATION  MJMEEHS,  Tht 

CLR  LlS 

7 

c 

kOH  CROSS  FEFEAENGi  NOM6C-S,  Iff  IfFoT  p  >F  AHt  IE  R'J ,  'ME  AGCITION 

Cb" V  L$ 

6 
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C 

Oh  CERi  CCMSCL,  STOhlGC  «hRAY  FOR  LOUIPFEM  hRMt"  ,  I'uR  INCfcX, 

CERVLS 

9 

230 

c 

A  NO  TPUT/NPUT  XNctXcS 

FOR  ALL  tOilFHLM  INFUT. 

CERVLS 

lw 

c 

CtnVLS 

11 

c 

CERCT 

- 

NUrtOCP  OF  CEP'S  FOR  THIS  PARTICULAR  EQUIPMlNT 

CtK VLS 

12 

c 

<1  WORD) 

CER  VLS 

13 

c 

IFOfiC  (  ) 

- 

(F  OP  C)  AlPFAEETIC  UHAPACTEP  INDICATING 

C  [RVLS 

14 

2  26 

c 

'FACTOR*  OK  'CcR'.  ( 1 50  WORDS) 

CEkVLS 

15 

c 

IROWIC 

- 

css  ilemcnt  number  to  which  this  csr  afplils 

Cch  VLS 

16 

c 

4 15  d  WOKCS) 

CERVLS 

17 

c 

IAOO 

- 

CLR  CONTROL  FLAGS  40  THRU  o>  FOR  AODITIVl 

CL  4  VLS 

16 

c 

CuRS  OR  SU8ELEMENTS.  0  INCICATES  NO  ADDING. 

CERVLS 

19 

>4G 

c 

1  THHU  6  INDICATE  AOO  UP  SU  BEL  fc  ME  NTS • 

c  o  vls 

2d 

c. 

( 15  J  WOKCS) 

CLR VLS 

c  1 

c 

ICEKNC 

• 

RcFEkENC 6.  NUMBER  FOR  CEP  EQUATICNS  IN  THE 

Ct"  V LS 

22 

c 

'CcRCGMP*  SUBROUTINE.  4150  WOKCS) 

CE»*  VLS 

23 

c 

I XREF ►0 

- 

lBS  Element  NUMBtR  USEO  IN  CROSS  REFERENCING 

CEnVLS 

24 

2  <o 

c 

A  PREVIOUSLY  COMPUTE  0  CPS  ELEMENT  •  AT  PRESENT 

CER  vL  S 

25 

c 

ONLY  CER  ElUATICN  NUMBER  9  ALLOWS  CRCSS 

CER  VLS 

26 

c 

uc  FEkENC INC •  a  INDICATES  NO  CROSS-REF. 

CE*  VLS 

27 

c 

4 15  w  WORDS) 

C  (h  VLS 

26 

c 

IXREFAO 

- 

LtR  CONTROL  FLAGS  FQP  CROSS -KFFFNERCING 

CLR VLS 

29 

25c 

c 

CLR  SUB- ELEMENTS.  <15l  wOROS) 

CERVLS 

20 

c 

IFSTORE 

- 

STORES  *  F  AC  T  CR  *  PARAMETERS.  49U0  HORCS) 

CERVLS 

21 

c 

PS  S  T  OF  £ 

- 

STORES  NUMQERICAL  FAkAMETERS.  <<300  WCkOS) 

CL " VLS 

32 

c 

ICE  ft  t  ) 

- 

A  SINGLY-SUBSCR IPTL0  ARRAY  CONTAINING  A 

CERVLS 

23 

c 

MAXIMUM  CF  1  >j C  CATA  TRIPLETS  WrtCSF  MErtBEFS 

CERVLS 

24 

2  66 

c 

AKtl 

CERVLS 

25 

c 

ICE  Ml, A,  7, 

- 

EQUIPMENT  NAME 

CERVLS 

26 

c 

ETC) 

CcRVLS 

27 

c 

ICEr  <2,4,6 

- 

INOEX  FOR  MASS  STORAGE  UNIT  o.  INOEX 

CtKVLS 

28 

c 

ETC) 

BEGINS  AT  1  ANO  INCREMENTS  BY  y  (1,10,19, 

Ct  R  VLS 

29 

2EC 

c 

ETC).  THE  FOLLOWING  CATA  RECOROS  ARE 

CERVLS 

40 

c 

INDEXED) 

CERVLS 

41 

c 

1  CfRCT  6  IXREFNO 

CERVLS 

42 

c 

2  IFQRC  7  IXREFAO 

CERVLS 

43 

c 

3  IhQWlC  9  IF  ST  CPE 

CERVLS 

4*. 

2E6 

c 

4  IAOO  9  FSSTORE 

CERVLS 

45 

c 

5  I CER  N  C 

CERVLS 

4b 

c 

ICE* 4  3  »t ,  y 

- 

1 740 1 X  FOR  MASS  STORAGE  UNIT  2  ANO  3. 

CEhVLS 

47 

c 

INOEX  BEGINS  AT  16  ANO  INCREMENTS  BY  2 

CLh VLS 

4b 

c 

4  Id, 20, 22, ETC)  ANO  IS  IDENTICAL  TO  THE 

CERVLS 

*.9 

2  ?- 

c 

THIRD  MfHRtR  OF  OATA  TRIPLET  STCPEO  IN 

CL  *  VLS 

50 

c 

THE  IREC  ARRAY. 

CERVLS 

51 

L 

SUB  EL  5  (  ,  1 

- 

SUBELS  IS  A  CROSS-HATCHLO  ARRAY  RRICM  IS 

CER  VLS 

52 

c 

RELATEt  CNt-TO-ONE  TO  The  CBS. 

CEn VLS 

53 

c 

IT  IS  USEO  LOCALLY  WITHIN  'CJNFC'lF*  ANO 

CE  n  VLS 

64 

2  75 

c 

'CERCGMP'  FOT  INTtRlM  STORAGE  uF  UP  TO 

CERVLS 

65 

c 

SIX  SULcLEmENTS,  1  THRUPUT,  AN  O  1  TOTAL 

CEh VLS 

5b 

c 

VALUE  FOK  L*.UR  CBS  kLfMENT. 

C  c  *  VLS 

57 

c 

FACTOR  1  1 

- 

A  FACTOR  IS  A  PRECURSOR  OF  UNF  CR  HOWE 

CCRVLS 

6  b 

r 

CCKS. 

CERVLS 

59 

2  ?  C 

c 

CE  *  V  l  $ 

E  i 

c 

CERVLS 

tt 

COMrt CN  /CcRVLS/ 

UEkcT,  IFORCU50).  IROWIOU50),  IA0041SC), 

CERVLS 

t  2 

c 

IClRNC ( 15Q ) ,  IXREFNO(150)  ,  I XREF AO  <1 5 3  I , 

CERVLS 

E  3 

2 

IFSTOKL (6 , 15  0 ) »PSSTOR£  46  ,l5d),ICER(3GQ), 

CF  RVLS 

C  4 

2  -*5 

C 

SUOfcLSIP,  150)  ,  FACTORS  115  0) 

CtR VLS 

t5 

J  UC*  QLT  I  hi 

NO  SO  UT  74/74  GPT*2 

FTn 

*.£♦433 

v7/3i/7S 

23*53 

INTEGER  CcFCT 

C  fc»«VLS 

c6 

C 

CtU VLS 

€7 
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C 

C  £ k  VLS 

€9 

z°z 

DIMENSION  ELANX120) 

we scut 

15 

INTEGER  SVIEn0,6LAHX,ASM0TES 

wesour 

16 

c 

wescur 

17 

c 

If.CXrOT  IS  THt  STARTING  INDEX  FOR  STORAGE  OF 

T  Hi  SHIP 

W8S0UT 

16 

c 

summations  oh  UNIT  to 

w€  SCUT 

19 

295 

DATA  INOXTOT  /  1251  / 

WBSOUT 

20 

DATA  (  SlANX (LI  ,L  = l  .2 31  /  20»10E 

/ 

wescur 

21 

ITOTAL  S  '’H  total 

wBSCUT 

22 

MAS  K  4  =  77777/7  / OO'jCJOCOOOOOB 

hESCUT 

23 

ASMOTES  *  lOHASMO  MODEL 

wBSCUT 

24 

3  K 

IF  ( ICALL.tQ.3 )  GO  TO  20j 

WfiSOUT 

25 

c 

WfSCUT 

2b 

c 

OUTPUT  dY  SHIP  CLASS  (OK  ELECT  1  FOE 

ALL 

EQUIPMENTS 

Wb  S  CUT 

27 

c 

WBSCUT 

28 

c 

W6SCUT 

29 

3j5 

INC  *  3 

wBSCUT 

30 

IPH2  s  IP  H  <  2  » 

WBSCUT 

21 

NM8SM1  =  NW0S  -  1 

WBSCUT 

22 

IPH2M1  s  IPH(2)  -  1 

W8SCLT 

23 

IP  HL  =  IPHCNPHI 

WCSOUT 

34 

3  1 r 

IF  (  ICiLl.lC. 1  )  GO  TO  1Q3 

wescur 

25 

c 

WBSOUT 

26 

c 

loop  through  All  sups 

WBSCUT 

37 

DO  <35  ISUES^I, NOSUB 

W8S0UT 

38 

c 

WBSCUT 

29 

316 

TOT  S Hi F  s 

wbsout 

40 

c 

SETUP  INuEX  RETRIEVAL 

wescur 

41 

18  E  G  s  ICOMP(ISUQS)  *  3  ♦  1 

wbsout 

42 

NUN  s  FCCCHPI ISU8S) 

WBSOUT 

43 

IE  NO  s  1  BEG  *  (NLM-ll  *3 

WBSOUT 

44 

32G 

J8EGX  =  IBEG 

WBSCUT 

45 

c 

WBSOUT 

46 

CALL  FtFMT  (  NMSU3  (i  ,  ISU8S  >  ,  KSCU)  , 

2,  1  HR  i 

WBSOUT 

47 

c 

W6SCUT 

46 

00  15  j=  1 » N  WBS 

WBSCUT 

49 

2  25 

TO T  C  J 1  =  0.0 

WBSCUT 

50 

15  CONT1NLE 

wescuT 

51 

c 

wgscut 

52 

c 

IFLGCL  (FLAG  WOKO)  -  =  0  EQUIP 

A  NO 

SHIP 

LESS  THAN  9 

WLSCUT 

53 

c 

=  1  EQUIP 

ANO 

SHIP 

GREATER 

TUN  9 

W0SCLT 

54 

3  i- 

c 

=  ?  LAST 

S  IT 

WESGUT 

55 

c 

WESCUT 

5b 

IPG  =  G 

WBSCUT 

57 

ROLLFLf  s  J 

WBSCUT 

56 

IFLGCL  =  0 

WfiiCUT 

59 

3  iC 

IS1  =  1 

H  E  S  CUT 

EC 

IS2  =  7UM 

wBSCUT 

1 1 

NCOL  =  NUM  ♦  1 

WBSOUT 

tz 

NNUM  =  NUM 

WBSCUT 

i  3 

IF  (  NCOL  .L C.  10  )  GO  TO  20 

hESCUT 

i  4 

Su, 

c 

wescur 

1 5 

NCOL  «  1J 

WBSOUT 

fcb 

NNUM  -  u 

wESCUT 

17 
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3  46 
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355 
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J7(J 


3  75 


JF1 


J.*S 


3M; 


3*5 


IS2  =  13 

WESCUT 

1 8 

IFLGCI  =  1 

W6SOUT 

89 

SVZEM)  =  l£  NO 

WESCUT 

70 

IENO  *  I0EG  ♦  27 

WBS  CUT 

71 

-ESCUT 

72 

TEST  Tf  SEE  IF  EXACTLY  lb  FQUI FHENTS  AKfc 

TO 

BE  OUTPUT. 

kBS  CUT 

73 

IF 

YES*  T  HtN  GEOtASt  TC  9  SO  THAT  ONE  WILL 

APPEAR  AlCNG  K7Th 

wG  SCUT 

74 

THE 

••TOTAL*4  ON  THc  NeXT  atT  OF  OCTFUT. 

wESCuT 

75 

IF  (  NLP  .NE.  1C  )  GO  TO  20 

U8SCLT 

7b 

NCOL  *  9 

wescui 

77 

NNUH  =  5 

w  e  s  c  u  r 

78 

IS  2  =  o 

WGSCuT 

79 

IENO  s  IEcG  ♦  24 

weSCLT 

ea 

W9SCUT 

El 

2P 

COMT INOE 

wescut 

e2 

WBSCUT 

23 

22 

CONT INLE 

wgscut 

24 

NSP  =  SO /NCOL  -  8 

WESCUT 

25 

NSPP1  =  NSP  ♦  1 

WBSCUT 

eb 

ENCOCE  U2Q,lll,FHTUfl>  NN CM,  N SFPl ,NGCl , 

NSPP1.MC0L, 

,  NSF 

WGSCUT 

t? 

ENCOCf  (  4u,122»FHU2U>  NCOL#NSP 

WBSCUT 

ta 

fNCOCt  (  40*123»FNU21T  NCCL.NSP 

hESCUT 

89 

21 

CONTINUE 

wescui 

SO 

IF  ( <T IT L£ 4 ANO «M AS K4 )  .£Q.  < A S PC T E S. AN C. 

HASK4  > ) 

wQSCUT 

91 

C  ENCODE  C40*  121.FMT12CI  NCOL, NSP 

WB  SCUT 

92 

WESCUT 

53 

KCT  -  G 

wbscut 

54 

DO  107  tf 6s 1  *  43 

wasouT 

55 

107 

SHIPFLKK6)  =  0.0 

WBSCUT 

56 

LO  40  JsIBeG.I ENO, INC 

WBSCUT 

57 

C  Ac*  PLAOHS  l  2.  AKAY,  LENP,  IRECUI  1 

wescur 

So 

KCT  s  PCT  ♦  1 

wbscut 

59 

WBSCUT 

10U 

IDXCS3  s  JGEGX  -  1 

wbscut 

1C1 

I0XCS4  =  IOXCS3/3 

WBSCUT 

102 

CST  1  »  FLOAT  CST  ABLE  UDXCS3)  ) 

WBSCUT 

1C3 

CST  4  s  CSTA6EL  t IOXCSu ) 

WESCUT 

114 

AW0R0(KW9S,KCT>  s  0.0 

WESCUT 

lo5 

no  30  1*1, N  WB  S Pi 

WBSCUT 

lUb 

IF  (FFF.EQ.2)  Go  TO  2-* 

WBSCUT 

1C7 

IF  II.LT.IPHLl  LO  10  2* 

WESCUT 

15d 

AMORLI I, KCT)  =  AwAY(I,l>  *  CST  3 

wbSCUT 

1  b9 

GO  TC  lb 

WBSCUT 

1 1 J 

24 

AHORCI] »HCT)  =  AKA  Y  < I » 1 )  *  CST4 

WBSCUT 

in 

25 

TOT (  1 1  *  TOT  ( I )  t  AWOHO(I,KCT) 

Wt  5  CUT 

112 

OO  127  K2=l, NOFLY 

WBSCUT 

113 

IF  1 1 ,ht .  ]F  IYFOHIK2  l )  GO  TO  127 

WBSCUT 

114 

SHIPFLYCtfCT)  s  SHIPFlY(KCT)  *  AWOUCMI.KCTl 

WBSCUT 

US 

IF1K2.  f-Q.NuFLY  1  TOTSMlP  =  TOTSHP  ♦  SHIF-FLY  (KCT) 

WESCUT 

1  lb 

WRITE  U>  2J1)  ShIPFlY  (KCT)  »  TOTSHP 

WES (UT 

117 

127 

CONTINLE 

WBSCUT 

110 

30 

CONT  IN  L  E 

WBSCUT 

119 

WESCUT 

1  2b 

AhuAC ( FWbS, KtT  )  =  A W06  O ( 1  *  KCT  )  ♦  AWUFOUFW2, 

KCT)  « 

AWCRO (IFHL i 

i  )C T  1  WBSCUT 

121 

TOT  (NwLS  t  s  TOT(l)  ♦  TuT ( I FH2 )  ♦  TOT  (lPHL  ) 

H6SCUT 

122 

Jet  G x  -  J9LGX  ♦  3 

WESCUT 

123 

IF  (1PFL.GT.IPh2)  GO  TO  4U 

WBSCUT 

1<4 
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JUL-kOUT INE 

Hi  SOUT  n/fi,  OT  =  2  FTn  .  6 ♦  H J i 

i7 /3 1/79 

23,53 

4  ,o 

AHOfcOi  (.HUS.  kcT  1  *  AHUkO(NWBS,  KCT)  -  A  kOk  0  (I  FHl ,  KL  I ) 

HESCUT 

125 

TOT  ( NH  ES  )  =  TOTtNHbS)  -  TOT  ( IPHL 1 

kBSOUT 

126 

40 

CONT 1NIE 

HESCUT 

127 

C 

wescuT 

1  CO 

KC  s  0 

v»esccT 

129 

h'5 

do  5*  n=isi,rs2 

kBSOUT 

120 

KC  s  KC  ♦  1 

HESCUT 

131 

KPR(Kt)  =  NMCUMP (1 ,il, ISU6S) 

KBSCUT 

122 

K1  *  KC  ♦  10 

KB SCUT 

123 

KPR(Kl)  s  NMCOMP  (2 , 11  ,  ISUeS) 

kESCUT 

124 

•4  1U 

50 

CONT IHLE 

KBS  CUT 

125 

c 

kBSCUT 

1  26 

c 

kBSCUT 

127 

c 

GFNtPATh  OUTPUT  FOP  ALL  CBS  COST  ELEMENTS  FCK  *K  *  MlMBER 

kBSCUT 

126 

c 

OF 

EOUlPfE  hTS 

kBSCUT 

129 

*  :5 

c 

KfiiCUT 

no 

c 

hescui 

141 

CALL  OL  T  I  UCALL) 

kBSCUT 

1*2 

c 

kBSCUT 

1*3 

c 

*•* 

kBSCUT 

1*4 

4  2u 

c 

kESCUT 

1*5 

c 

CHECK  FCft  END  OF  THIS  SHIP'S  EQUIPMENTS 

kBSCUT 

1*6 

c 

kBSCUT 

lk7 

c 

kBSCUT 

1*8 

60 

CONTINUt 

kBSCUT 

1*9 

*.25 

c 

kBSCUT 

150 

c 

kBSOUT 

151 

65 

CONT  JNUfc 

kESCUT 

1  £2 

IF  ( IF  LGCL  «  NL •  1)  GO  TO  90 

nescul 

153 

IPG  =  C 

KBSCUT 

154 

*  50 

IS1  =  I S I  t  1 

kBSOUT 

1*5 

IS 2  »  IS!  ♦  10 

kBSCUT 

156 

IF  (IS2.tQ.NUM  .ANO.  (MOO  (  IS2 ,  1  0  It  .  £0 . 0  1  IS2  =  IS2  -  1 

kBSCUT 

1ST 

IF  (IS2.GT.NUMI  IS2  *  NUM 

kBSCUT 

156 

NCOL  *  152  -  IS1  ♦  1 

kescui 

159 

4  2f 

IF  ( IS2  .EG. NUM )  nCOL  =  NCOL  ♦  1 

kESOUT 

1(0 

NNUM  =  NCOL 

KBSCUT 

l  tl 

IF  (IS2.tO.NUMI  NNUM  =  NNUM  -  1 

kBSOUT 

U2 

IBCG  =  I ENG  ♦  3 

kBSCUT 

113 

IF  NO  s  I  BEG  *•  C(XS2  -  ISl»  *  3) 

W9SOUT 

1  (4 

<♦<•1 

IF  ( IS  2 • c  C«  NUM )  IFLGCL  =  2 

kBSCUT 

1(5 

GO  TO  20 

HfliCU  T 

lto 

c 

kesCLT 

It? 

c 

OUTPUT  TOTALS  FCk  THIS  SHIP 

kescuT 

1(8 

c 

kBSCUT 

1(9 

**•5 

90 

CONTINLE 

kBSOUT 

170 

INOX  s  IkOxTQT  ♦  I SUBS  -  1 

KESCUT 

171 

CALL  HKITMS  (  10.  TOT,  NW8S,  INOX  ) 

KBS (UT 

1  72 

c 

kBSCUT 

173 

95 

CONT IN  LE 

kBSCUT 

1  ?* 

4*1 

c 

koSCuT 

176 

PE TURN 

kBSCUT 

176 

c 

kBSCUT 

17  7 

c 

FLEET  LEVEL  OUTPUT--- 

kBSCUT 

176 

c 

KESCUT 

1  79 

<♦55 

c 

(.OOP  TFHOUGM  ALL  tOUIPMENTS  10  AT  A  T I HF  ANO  LIST  uCSTS  FOH 

kBSCUT 

1(0 

c 

rue 

TOTAL  RUMBeH  OF  EACH  EQUIPMENT  ACROSS  THE  CBS. 

KBSCUT 

1(1 
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WESOUT  ”4/74  QPT-e  FT  H  «,i+H33  C 
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23.63 

c 

HBSCUT 

its 

lOd 

CONT  INU 

RESCUT 

its 

00  103  17=1, NW6S 

HBSCUT 

1  (4 

MfcC 

10  3 

TOT (IT)  =  y«a 

hbscut 

1  £5 

c 

HESCUT 

iet 

c 

The 

FOLLCW1NG  LOGIC  SETS  UP  RECOVERY  IN01CCS  FOR  COMHCN  ARRAYS 

hBSCUT 

1E7 

c 

ANC 

MASS  STORAGE  FILES,  ANO  ALSO  COLUMN  l  'FACING  COUNTERS  FOR 

H0SCUT 

i«a 

c 

c  NCOCING  OUPUI  FORMATS  ANO  COUNTING  CU1PU1  ARRAY  COLOMNSl 

HBSCUT 

1 19 

Hit 

c 

wescuT 

ISO 

c 

IBEG  -  BEGINNING  INCEX  FOR  Kl A  Cl  KG  EQUIPMENT  COST 

40  SC  U  T 

151 

c 

FROM  MASS  STORAGE  UNIT  2 

nescuT 

152 

c 

IENC  -  ENDING  INOEX  FOR  SAM:.  SERIt-S  OF  READS  FRLM 

HESCUT 

153 

c 

MS  UNIT  3 

46 SCUT 

154 

4  7c 

c 

IPG  -  PAGINATION  INDEX.  INITIALIZED  McP£, 

HBSCUT 

155 

c 

INCREMENTED  IN  **OU  Tl “ 

HBSCUT 

156 

c 

iflgcl  -  completion  FLAG 

HESCUT 

157 

c 

C  =  INITIAL  VALUl 

HBSCUT 

15a 

c 

1  =  CONTINUE  PROCESSING  EQUIPMENT 

HBSCUT 

159 

4  76 

c 

2  =  COMPLETION.  all  equipment  processec. 

H6SOUT 

2lu 

c 

IS1  -  BEGINNING  INCEX  FOR  RECOVERING  EQUIPMENT 

HESCUT 

2  Cl 

c 

MNEMONICS 

HBSCUT 

2G2 

c 

IS  2  -  ENDING  INOEX  FOR  same  SERIES  OF  MNEMONICS 

HBSOUT 

203 

c 

NCOL  -  NUMBER  OF  COLUMNS  OF  OUTPUT  TO  SET  LP 

nescuT 

2C4 

<♦ 

c 

NNUH  -  NUN0CR  OF  EQUIPMENT  COLUMNS  TO  SET  UP 

H6S0UT 

2C5 

IBEG  =1 

HBSOUT 

20b 

IENO  *  1  ♦  ( ICCT  K  -  1)  ♦  3 

HBSCUT 

207 

IPG  =  0 

HBSCUT 

2  Qfi 

IFLGCL  *  0 

HBSCUT 

2  09 

4*6 

IS1  «  1 

HBSCUT 

210 

IS2  «  ICCTR 

HBSCUT 

211 

NCOL  =  ICCTR  ♦  1 

HBSCUT 

212 

NNUM  a  ICCTR 

H0SOUT 

213 

c 

HESCUT 

214 

49C 

c 

MOOIFY  INCICES  FOR  SITUATION  NHERE  THERE  ARE  9  OR  MORE  EQUIPMENTS 

HEScur 

215 

c 

neSCUT 

216 

IF  (  NC  (L  «Lt  •  13  )  GO  TO  115 

HBSCUT 

217 

NCOL  *  lli 

HBSCUT 

218 
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SYST 

k 

t 

c 

NMSYS 

-  NAHe  OF  THE  system 

SYS  T 

5 

c 

NOSUB 

-  total  NUMBER  OF  SHlPClASSEo  bOKSICchtD 

SYST 

t 

c 

NHSU6  ( 

,  »  -  NAME  OF  THE  SHIPCLASS  IN  TWO  WORDS 

SYST 

7 

c 

NCCCMf < 

1  -  InOcX  NUF0CK  FOR  LCUIPMENTS  (COMPONENTS) 

SYS  7 

a 

c 

UUNMlNG  TOTAL  FOR  ECUIFMcNTSJ 

sYST 

0 

l- 

c 

NMCCMF  ( 

,  .  )  -  NAMES  OF  EQUIPMENT  (2  WCFQS)  FOR  TITLES 

SYST 

10 

c 

IN  W8S0UT  (INDEXED  BY  ECUlPPtNT  NUMBER 

SYST 

11 

c 

mND  SHIPCLASS  NUMBER) 

SYST 

12 

c 

N  AM  ESC  ( 

,  )  *  NAMES  CF  EQUIPMENT (2  WO«OS,  7  CP ARS  EACH) 

SYST 

13 

c 

FuR  EQUIPMENT  QUANTITIES  TABLE  -  FLEET 

SYS  T 

W 

l5 

c 

5UHHARY 

SYST 

15 

c 

EQU1 

-  PRESENT  EQUIPMENT  (BEING  PROCESSED) 

S  1ST 

16 

c 

SHlPNf' 

*  PRESENT  SHIPCLASS  (BtlNG  MCCESSEO) 

SYST 

17 

c 

SYST 

IB 

c 

SYST 

19 

20 

COMMON  / 

NAMtS  /  NMSYS,  NOSUB,  NMSUti  (2 ,4j)  ,  NCC0MP(4J), 

S  VST 

22 

1 

RMCGMPi  2,  1(H)  ,43)  ,  NAME  SC  (1-b  ,2)  ,  c  CUI,  SHIFRM 

SYST 

21 

INTEGER 

EQUl.SMIfNM 

SYST 

22 

c  • 

<«**MISC  (MISCELLANEOUS)  CCMMCN  . . 

SYST 

23 

c 

S  IS  T 

2L 

25 

c 

NAP 

-  COUNT  OF  DIFFERENT  AFFRCPRIATICR  CCOES 

SYST 

25 

c 

APPRO  < 

1  -  APPROPRIATION  CODE  NAMES 

SYST 

26 

c 

SPCL<  , 

i  -  pe.tClntagcs  for  cbs  element  cost  sflits 

SYST 

27 

c 

NPH 

-  COUNT  OF  THE  LIFE  CYCLE  PHASES 

SYST 

26 

c 

IFH  (  1 

-  FIRST  CBS  ELEMENT  NUMBER  OF  EACH  PEASE 

SYST 

29 

u 

c 

rpe  <  i 

-  COS  ELEMENT  NUMBER  EOF  PAGE  BREAKS 

EYS1 

2li 

c 

(LAST  CBS  NUMBER  FOR  THE  PAGE) 

SYS  7 

-’l 

c 

IPHASt ( 

,  )  -  TITLES  OF  CBS  PHASES 

EYE! 

22 

c 

fleet? 

-  FLEET  (SYSTEM)  SIZE 

SYST 

23 

c 

MR  OIL  ( 

)  *  LOHtST  COST  ELtMtNT  LlVcL  TC  SE  PRINTEO 

SYST 

24 

75 

c 

(LOWEST  LEVEL  TO  BE  ROLLtO  UP  WITHIN  PHASE) 

SYST 

25 

c 

SOlGT 

-  TOTAL  ROUE  COST 

SYST 

2b 

c 

TOT  IN V 

-  TOTAL  INVESTMENT  COST  MINUS  TOTAL  RIFOUT 

SYST 

22 

c 

TOTRIF 

-  TOTAL  RIROUl  COST 

SYS  7 

18 

c 

smisrc 

-  MISSILE  ROT  If  COST 

SYST 

39 

'-C 

c 

NOFLY 

-  NUMBER  OF  CBS  tlcMfcNTS  TO  BE  INCLUCEC  IN 

SYST 

AG 

c 

FLYAWAY  COSTS 

SYS  T 

A  1 

c 

rF(.YRCN(  1  -  CBS  ELtMtNT  NU Mfi ER  F OP  FLYAMAY  COSTS 

SYST 

W2 

c 

NOYRS 

-  NUMStR  OF  YEARS  IN  SHIP  I  NS  T  ALL  AT  I C  R  TABLE 

SYST 

<.3 

c 

trf aps 

-  YEARS  COVERED  BY  THE  SHIP  INSTALLATION  TABLE 

SYST 

H4 

uv 

c 

IVRS 

-  NUMBER  OF  Y£APS  IN  SHIP  INSTALLATION  TABLE 

SYST 

45 

c 

Plus  ONE  (COLUMNS  FOR  PRINTING  SHIF/INSf  T  ABlF ) 

SYST 

*0 

c 

FNOTEST 

,  1  -  FOCIHOTES  FOR  FlkSI  TWO  MAjCic  OLlPUT  CHAUS 

SY$T 

*.7 

c 

SYS  T 

COMMCN  / 

MISC  /  NAP, APPRC( 7) *SPCL (J. e.2)  ,KFMflPH(4)  ,IF3(3)  » 

SYS  7 

A9 

5  C 

1 

iphasl <2 » w  t *  fleet  z , nrcll  (t»>  .wotot,  totihv, j  ctwip, 

SYS  T 

f  u 

2 

SMI  SKO,  NOFLY,  I  FLY  ROW  (ESI  ,  NU  YF  5  ,  I  Yt  Ah  S  ( 1  2  1  ,  I TFS  , 

SY  S  T 

51 

3 

FN0TESI5, 12) 

SYST 

S  2 

IMTEGEh 

AFFUO, SPCL*FLtt T2 

SYST 

53 

c 

SYST 

*4 

st 

c 

GtNTRAL  TITLE  TO  Be  USE  0  OK  ALL  CHARTS 

C£R  TIE 

2 

COMMON  / 

GENTLE  /  TITLtdl 

G  CRT  LE 

3 

INTCCE  k 

title 

GFMIE 

4 
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RETURN 
C 

ENTRY  FEAQl 
C 

C  GET  THE  bATt  AUO  T IMt  OF  RUN  FROM  SYSTEM  MAINFRAME 
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TODAY  = 
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Ft  AC 
Ft  AC 
Ft  AC 
F  t  AC 
HE  AC 
HE  AC 
F  £  A  C 
F  £  A  r 
F  £  A  0 
Ft  AC 
F.EAC 
F£  AC 
Ht  AO 
FEAC 
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SU8R  CU  T  In£  OATAOP 

C A  I  AC P 

2 

c 

MS2 

2 

c 

INGTH  ANO  COUNlE'kl  CU-MOII  •«.*♦»♦•••«♦»»♦• 

MS  2 

3 

c 

PS  2 

4 

c 

rS  2 

S 

c 

LcNP 

-  HASS  STOkAGE  UNITS  CChMLW  PtcORC  LENGTH 

PSi 

6 

c 

(TYPICALLY  1 5G 1 

PS2 

7 

c 

NWBS 

-  NUMfltP  of  elements  in  thf  ces  (max  150 

PS  2 

0 

c 

ICCTP 

-  NUMBER  OF  (.QUIrKtMS  IH  TEE  t'JUlEMiNT 

P  S  2 

9 

c 

t L  w  Mt  NT  S  TABLE 

PSt 

lu 

c 

L  15  0 

-  (150  WORDS)  FECOKO  LlNGTH  OF  7  A.^AYS 

PS  2 

11 

c 

IN  T  H  £  "CEfiVLS**  COMMON 

PS  2 

12 

c 

L5  jd 

-  (9J0  WORDS)  Ft  CORD  L  NOTH  OF  2  ARRAYS 

rS2 

13 

c 

iH  THE  **CtRV  LS’*  COMM  uH 

PS  2 

14 

c 

PS  2 

15 

COMMCN  /  MS2  /  LEN«,NWoS,I CCTF iL 15fl, L190 

PS2 

16 

c 

M  S  2 

17 

c 

PS2 

16 

c 

PS  2 

19 

c 

NFLT 

2 

C4 

NFUT 

3 

c 

NPUT 

4 

c 

VARIOUS  CT  PiR  ARRAYS 

ARC  lQUIVALLNCLO  TO  T  RE  “ARAY**  ARRAY  AS  Its! 

NfU 

5 

u 

NFLT 

6 

u 

-  SLCCM  1  HOW  = 

AHA Y  (1,1) 

NFUT 

7 

c 

-  BU0G6T  l  CG  = 

AKAY  (1,2) 

NFLT 

a 

c 

-  INPUPO  1  ICPEC  * 

ARAY (1, 1) 

NPU  T 

9 

c 

-  COMPCMP*  ROW  = 

ARAY  (1,1) 

NPL  I 

10 

c 

-  APCELT  1  IRAY  = 

ARAY  (1,1) 

NFUT 

11 

c 

NPL1 

12 

COMMCN  /  NFUT 

/  ARAY(1E0,2) 

NFLT 

13 

c 

NFU1 

14 

c 

C  £RVLS 

2 

c 

CERVLS 

3 

c 

STIMATING  RELATIONSHIP  (CER)  VALUES)  COMMCN  . 

•  CtNVLS 

4 

c 

CERVLS 

5 

c 

THE  CfFVLS  COMMON  CONTAINS  LOCATIONS  FOR  ST  OR  AGE  OF  THE  CEP 

CtRVlS 

b 

c 

INPUT  CARO  COUNT,  TH 

w  KOW  ID'S,  THt  CtR  EQUATION  NUMBERS,  THE 

CtNVLS 

7 

c 

VCW  CROSS  REFERENCE 

NUMBERS ,  THE  INPUT  PARAMETERS,  THE  ADDITION 

LtkVLS 

A 

c 

UP  CERS  CONTROL.  StOlAGE  ARRAY  FOR  tQUIFMENT  NAME  .  C  E  K  INOEX. 

Cth  VLS 

9 

c 

ANO  TPUT/NFUT  iNUcXES  FOR  ALL  LQUIPPfcNT  INFUT. 

CE«  VlS 

10 

c 

C  E  i»  V  l  S 

11 

c 

Ct  RCT 

-  HUMBER  OF  C  E  h  *  S  FOR  THIS  PARTICULAR  EQUI FMfc  NT 

Ct  r<  VL S 

12 

c 

(1  HUPO) 

CEhVLS 

13 

c 

I  FOFC  (  ) 

-  (f  ck  o  alphabetic  charactek  indicating 

CERVLS 

14 

L 

'FACTOR  *  OR  #CER  * •  (150  MONOS) 

Clk VLS 

15 

c 

UOWlC 

-  CBS  CLEMlNT  NUMBER  TO  MUCH  THIS  C£R  APPLIES 

C»_R  VLS 

16 

c 

(150  WORCS) 

CEFVLS 

17 

c 

IAOO 

-  Lt«  CONTROL  FLAGS  (0  THRU  ol  FOR  ADDITIVE 

CER VLS 

16 

c 

CERS  OR  SUfJ ELEMENTS,  C  INCICATES  NO  AOCING. 

CtR VLS 

19 

c 

1  THkU  b  IN01CATL  AGO  UP  SueEL  EP tNTS. 

CL  F  VLS 

2U 

c 

< 15 J  WORCS) 

CE* VLS 

21 

c 

ICtRNC 

-  R£  Ft  Kfc  NCE  NUMBER  FOR  CER  EQUATIONS  IN  THE 

C  t* VLS 

22 

c 

* C £  RCOMP  *  SUBROUTINE.  ( 15 j  WORCS) 

CCS VLS 

21 

c 

IXREFKO 

-  LdS  ELEMENT  NUMBtR  USE  0  IN  CROSS  REFERENCING 

CERVLS 

24 

c 

A  PREVIOUSLY  COMPUTED  CeS  E  L t  N  T  •  AT  PRESENT 

C  ck  VL  S 

25 

c 

ONLY  CER  ECUATICN  NUMBER  8  ALLOWS  CROSS 

CERVLS 

26 
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c 

kEFlKl  nC ING«  0  INDICATES  NO  CROSS-REF. 

CtKVLS 

27 

c 

U5J  WCFCS) 

CEkVLS 

it 

c 

IXREFAO 

l.t»  CUNTnOL  FLAGS  fO»  C FOSS - SE F E9 £ F C IN G 

C  t  n  V  L  s 

19 

c 

CKR  SU8- '•.LlNENTS,  (1^;  WORDS) 

CERVLS 

20 

c 

IFSTCRE 

STOnc S  *  FACT  Oft  *  PAFAFETEPS.  1100  HCSCS) 

CEkVLS 

21 

c 

PSSTOfE 

STORES  NUM8EKICAL  FAkAMETEF.S.  <9)0  WGKOS) 

C  fc  k  V  L  S 

22 

c 

ICE*  t  I 

A  SINGLY -  SU8SCPIPTEC  ARRAY  CoNTAIUNG  A 

CckVLS 

33 

c 

HAXlHUH  CF  luu  DATA  TFIFLETS  WHCJE  HcMdEtS 

CEkVLS 

34 

c 

ARE  1 

CEn VLS 

35 

c 

ICEMl.4,7,  - 

EQUIPMENT  NAME 

Ct*  vlS 

2fc 

c 

cTC) 

CLk VLS 

27 

r. 

ICf 

1  NO t  X  FOP  NASS  STOFAGl  LN I T  Ik'CEX 

CEkVlS 

It 

f 

ETC) 

bcIINS  AT  1  »NO  INLkihcNlS  BY  9  (l,lj,L9, 

Lt-  R  VlS 

29 

c 

L  TO )  «  TMl  FOLLOWING  CATA  RlCuPCS  ARE 

CtMLS 

c 

INDEXED! 

CEkVLS 

41 

c 

1  CfcRCT  b  IXREFNO 

Ctn VLS 

*2 

c 

2  IFORC  7  IX RE  FAD 

CEkVLS 

43 

c 

3  I  ROW  I C  A  IFSTCRE 

CERVLS 

4h 

c 

4  I A 00  5  FSSTCRE 

CfcRVL  f 

45 

c 

S  ICEkNC 

CERVLS 

4b 

c 

ICER<J,6>,9 

INDEX  FOR  MASS  STORAGE  UNIT  2  AND  3. 

CEkVLS 

*7 

c 

INDEX  BEGINS  AT  18  ANP  INCREMENTS  8Y  2 

CEkVLS 

46 

c 

(10, 20, 22,  ETC!  AND  IS  IDENTICAL  TC  THE 

Ct*  VLS 

49 

c 

THltiO  MEHStrf  OF  DATA  TSIPLtT  STORED  IN 

CExVLS 

50 

c 

THC  IRCC  ARRAY. 

CtRVLS 

51 

c 

SUBcLS (  ,  ) 

SUatLS  IS  A  CKOSS-HATCHEO  ASFAY  MUCH  IS 

CEP  VLS 

£2 

c 

RELATEC  CNE-TO-CNt  TO  THE  CBS. 

CEk  VLS 

53 

c 

IT  IS  USED  LOCALLY  WITHIN  'COMFCMP*  ANO 

CERVLS 

54 

c 

‘CERCOMP*  ‘*Qf.  IMERI  ^  STORAGE  CF  UP  TO 

CEFVLS 

55 

c 

SIX  SUEELENtNTS,  1  TMKUFUT,  ANCi  1  TOTAL 

CERVLS 

5b 

c 

VALUE  K OR  EACH  CBS  ELEMENT. 

CEkVLS 

57 

c 

FACTOR!  » 

A  FACTOK  IS  A  PRECURSOR  OF  ChE  CR  fCRfc 

CERVLS 

58 

c 

CE  ?S« 

CtRVLS 

59 

c 

CEFVLS 

feu 

c 

CEkVLS 

ei 

COMMON  /CEkVLS/  CEkCT,  If OKC < 1 50  I .  I *0 WIO (150  )  .  IAGC(15U>, 

CfcFVLS 

62 

C  XCERNO ( 150 ) «  iXRtf NO (15u )  » I XR  k  FA  0  ( l  53  ) , 

Ct  h  VLS 

c3 

2 

IFSTORE  (6 ,15  0 ) . PSSTU R t ( 6 , 15 u 1 ,  ICE*  (  300) v 

CERVLS 

1 4 

C  SUCELS <8, 150) ,  F  AC  TOPS  ( 15  0  ) 

CE  R  V L  S 

fc5 

INTEGER  CEkCT 

CERVLS 

6b 

c 

Cth VLS 

1 1 

c 

Ct*  VLS 

69 

c 

ARRAY  Ot FINING 

TmE  RCLL-U7  INPUT  HUNGERS,  T0T«L  COUNT  OF 

RCLlFCT 

2 

c 

CCS  7  cLcMENTS 

WITH  SPECIFIC  POLL-UP  NUW&fc.cS  To  ‘3  f  CllFUl, 

RClLFOT 

3 

£ 

arf;y  of  Si.lCctlo  hqv  elf'ients  numelss,  sa.n!.'  voll-uf 

*,  UL  l*CT 

H 

c 

OLTfui  flag 

kCc  L  r  C  T 

5 

CGMMCN  /  SolUPCT 

/  1  ROLL  ( 15  J )  t  kCLLTOT,  RUl LSL <  15  -  )  ,  kOLLFLG 

kCl  LFCT 

b 

INTtGEK  KCLuTOT, 

WOLLSL.  K.CLLFLG 

A  C  L  L  FC  T 

7 

£ 

RCL  LFCT 

8 

**  BUL &  COMMON  ** ** •*•** • # •••***••••• * 

R  C  L  L  f  C  T 

c 

RCL  t  PC  T 

10 

c 

CH/RTS 

2 

c 

CHAJ  TS 

«* 

c 

CHA  f TS 

5 

c 

ChRTCNT  CONTAINS 

T MAJUK  OUTPUT  CHAr-T  CONTROLS 

CFA*  TS 

b 
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C 

J 

- 

GcNEl'ATt  CHANT 

CHA  ITS 

7 

c 

1 

- 

NU  GENERATION  OF  CHA.vT 

CHAN  rs 

6 

c 

CHA  f  TS 

9 

c 

CHRTCNT  ( 1  J 

- 

IF  EQUAL  TO  C  -  CALLS  HBSOUT(l)  F C.<  EQUIPMENT 

CHANTS 

10 

c 

lLEHLNT  LIFE  CYCLE  COSTS  -  FLEET  SUMMARY 

CHA  ITS 

11 

lzc 

c 

CHRTCNT (21 

- 

if  EQUAL  TO  :  -  CALLS  HgSOUT(E)  FCR  UNIT 

CHART  S 

12 

c 

SHIP  COSTS  eY  LCUI PMwNT  LE H~ N T 

CHA  NTS 

13 

c 

- 

IF  Nl •  TO  J  -  CALLS  HESTOT  BECAUSE 

CHARTS 

14 

c 

RB^OUT (2 1  NAS  NCT  CALLED 

CHARTS 

IS 

c 

CHRTCNT  (3) 

- 

IF  tQUAL  TO  3  -  CALLS  we50UT<3>  FCR  SHIP 

CHANTS 

lb 

125 

c 

bLASS  SUMMARY 

CHA  NTS 

17 

c 

CHRTCM  <4  1 

- 

If  EQUAL  TO  0  -  CALLS  B  LDGU  P  FOP  LIFE 

CHAR  T  S 

1(3 

c 

CYCLE  COSTS  BY  BUDGET  APPROPRIATIONS 

CHA  NTS 

19 

c 

CHRTCM  (5) 

- 

IF  Fi.  TO  3  -  CALLS  RCLCNT  FCR  CUT FU T  cY 

CHANTS 

20 

c 

RCLL-UP  NUMBER 

CHANTS 

21 

1  31) 

c 

CHRTCNT (b> 

- 

IF  EQUAL  TO  l<  -  LISTS  T  hfc  SUBFLS  ARRAY 

C  E A  ITS 

22 

c 

FuR  LNTIFS  CDS  F ON  FROOFInu 

LHA  NTS 

23 

c 

ChA  NTS 

£*• 

c 

CHLmTS 

To 

COMMON  /  LMAr.lS 

/  CHkTCnT (15  1 

CHA  N  TS 

2b 

1 

iNTFGFf  CHRTCNT 

CHA  NTS 

2/ 

c  * •« 

c 

CST  AE 

3 

c 

QCMFT 

- 

QUANTITY  OF  EQUIPMENT  ALREAOY  UtPLOttO 

cs  1  at 

4 

c 

(u  l  S  1  OVER  ALL  SHIPCLASStS  IC1I  (INTtGtRl 

C  S  l  A  B 

c 

X- 

c 

QCMP7  c 

- 

QUANTITY  OF  EQUIPMENT  TO  BE  MANUFACTURER 

CSIAB 

b 

c 

INSTALLED  1INVESTMENTI  CVER  ALL  SHICLASStS 

CS1AB 

7 

c 

( Q2  1  (REALI 

C_  TAB 

e 

c 

CST  ABLE 

- 

SINGLY-OIMENSICNED  Ar-FAY  WHOSE  MEMBERS  ARE 

CST  AE 

9 

c 

A  SERIES  OF  1 

CST  Ab 

lu 

145 

c 

--SH1PCLASS  NAME 

CST  AB 

11 

c 

--0  L  S  QUANTITY  OF  lCUIFMENT  FJK  lACM 

LSI  A6 

12 

c 

SHIP  ON  A  PARTICULAR  SHIFCLASS 

LSI  AH 

13 

c 

--INV  QUANTITY  OF  EQUIPMENT  FCR  EACH 

CST  ae 

14 

c 

SHIP  ON  A  PARTICULAR  SHICCLASS 

CST  Ab 

15 

1  CL 

c 

l THESE  THREE  MEMBERS  ARE  GlVcN  FOR  EACH 

CS  T  A6 

16 

c 

SHIP  CLASS  MAKING  A  SERIES  OF  CA TA  TRIPLETS) 

C  3  I  A  E 

17 

c 

(VALUES  APc  INTEGEnI 

CS  IA6 

16 

c 

CST APtL 

- 

SINCE  Y-OI  ME  NSICNt  0  ARRAY  OF  THE  INVESTMENT 

CST  AE 

19 

c 

QUANTITY  OF  CQLIFHENT  FOR  EACH  SHIP  CN  A 

CS  T  AB 

20 

155 

c 

PARTICULAR  SUPCLASS.  DATA  ELEMENTS  MUST 

CS  1  A6 

cl 

c 

Be  STOREC  IN  T  HE  SAME  SUFCLASS  ORCER  AS 

CST  AE 

c2 

c 

CSTAPLf.  ThE  two  arrays  may  be  thought 

CST  AE 

23 

c 

OF  AS  A  SERIES  OF  DATA  CUAORUPlETS. 

CS  I  AB 

2*» 

c 

C  3  T  a  e 

25 

i  e  c 

c 

CST  ae 

2b 

COMWCN  /CST AH/  GCMPT  ( 1  3 0  1  *  QC MP T  2  ( 10  j  )  ,C  ST  A  Jl  £  <  375  u  1  ,  CS  TAB fc  L  ( 1  <5  C  1 

CST  a& 

27 

INTEGER  GCMPT, CSTAOUd 

cs  ue 

2c 

c 

G  2  N  t  R  A  C  TITLt 

TO  Be  USE  C  ON  ALL  LhAkTG 

C  C  N  ’  L  t 

2 

COHMCN  /  GvtlTLc 

/  TITLr.i  *1 

LtNT  1C 

J 

1  >5 

INTFC-t*  TITLl 

c  t  n  i  l  : 

*♦ 

o 

Cm] N  INS 

i 

C  •  *' 

c 

SMI f 1  NS 

•♦ 

c 

Shi f  INS 

5 

1  *- 

L 

TH£  IH  f  C  Ar  -Vm  Y 

k  J 

A  >INCLY -SU0SCP  U  TtO  ARRAY  WHOSt  FIRST  POSITION 

SHie INS 

b 

C  IS 

The  TlT«l  r,uMRt.* 

Jf  UN  10 Ut  GHIFCLASS/E QUIFM> NT  lOMPINATIONS. 

iH  I  N  I  N  S 

7 
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^?D“A087  930 

1  unclassified 

naval  surface  weapons  center  dahlgren  va 

SYSTEM  AND  FORCE  STRUCTURE  COST  ANALYSIS 
SEP  79  CP  NELSON 

NSWC/TR-79-250 

MODEL 

F/G  19/1 

(SAFSCAM)  USER'S— ETC (Ul 

NL 

m 

- 

U 

_ 

HI  j 

_ 

— 

I 

- 

i - 

I 

. 

1 

1  — 

j! 

II 

1 

! 

i 

I 

| 

i 

■ _ 

iUEROU  T INt  OATAOP 


C  THE  NEXT  THRe 
C  MEMBERS  ARE  t 
C  IREC(l) 


IREC<2,S 

Hi 

IPEC(3,6 

12, 

IREC ( 4, 7 
13, 


C  ♦•••  SHIFT  ES 

C 


CO MM CM  / 
INTEGER 


FT N  4.6*433 


eE  POSITIONS  START  A  SERIES  OF  TRIPLETS  WHOSE 

SHIPCLASS  NAME,  E  QUIP  Ft NT  NAHL,  MS  3  IMQEX. 

-  THE  RUNNING  SUM  OF  THE  TOTAL  NUMBER  CF  UNI  OLE 
SHI PC LASS/ EQUIPMENT  COMBINATION  IN  THE 
tQUlFMENT  LEVEL  INPUT 
$,6,  *  THE  NAME  OF  THE  SHIP  CLASS 

•  ETC) 

6.9  -  THE  NAME  OF  THE  EQUIPMENT 
»ETC> 

7.10  -  INDEX  FOR  HASS  STORAGE  UNIT  3*  AN  INTEGER 

i  ETC)  NUMBEk  BEGINNING  A  14  A  NO  I  NCR E  ME  NT  I  KG  BY 

2  TO  FORM  Id, 2y ,22  ,24, ETC*  THIS  INDEX  IS 
THE  STARTING  LOCATION  OF  A  RtCORO  (LENGTH* 
•‘NHBS  HO FOS“ )  ON  MASS  STORAGE  3  WHICH 
CONTAINS  THE  UNIT  COSTS  OF  THE  EQUIPMENTS 
CN  A  UNIT  SHIP  (COHPLTEO  BY  SUBROUTINE 
COMFCMP) . 

HARRAY  /  IREC (3750) 

(SHIP  SUMMATION  ANO  INSTALLATION  TABLE)  CCHNCN 

(  )  -  CONTAINS  THE  TOTAL  NUMBER  OF  UNIT  SHIPS  FOR 

EACH  SHIP  CLASS  FOUND  BY  INSPECTION  CF 
THE  SHIP  INSTALLATION  T  ABLt 

•  )  •  1  HE  SHIP  QLPLGYMENT/INSTALLATICN  SCHEOULt 

TABLE,  for  EACH  SHIP  CLASS* 

SINST 6 (X • 1 1  -  SHIP  CLASS  NAME 

SINST8U*  2-7)  -  THF  YEARLY  NUMBERS  OF 
UNIT  SHIPS  OF  THIS  CLASS  TO  Be 
DEPLOYED/ IN ST ALL ED 

)  -  THE  TOTAL  NUMBER  OF  UNIT  SHIPS  FOR  EACH 

SHIP  CLASS.  IT  IS  THE  SAME  COUNT  AS 
SHIPSUM,  HOWEVER,  IT  IS  DEFINEO  IN  A 
SPECIFIC  ORDER  AFTER  ERROR-CHECKING  IN 
SLCCM #S  NESTEO  OO-tCOFS  WHICH 
DETERMINE  THL  TOTAL  COSTS  BY  SHIP  CLASS 

SHIPINS  /  SH IPSUM  (4  3 )  «  SINST  k)  <43  »  7  I  ,  SHIPSMU3) 

SHIPSUM,  SINSTB ,  SHIFSM 


NAMES  CCMMON 


NMSYS 
NOSUB 
nmsub  (  , 

NOC  CM  P ( 


EQUI 

SHIPNM 


NAME  OF  TM£  SYSTEM 

TOTAL  NUMBER  OF  SHIPCLASSES  CONSIDERED 
NAME  OF  THE  SHIPCLASS  IN  TWC  WORDS 
INDEX  NUMBER  FOR  EQUIPMENTS  (COMPONENTS) 
(RUNNING  TOTAL  FOR  EQUI FMENTSI 
NAMES  OF  EQUIPMENT  (2  WCROS)  FCR  TITLES 
IN  WBSOUT  (INDEXED  BY  EQUIPMENT  NUMBER 
ANO  SHIPCLASS  NUMBER) 

NAMES  OF  EQUIPMENT (2  WOROS,  7  CHARS  EACH) 
FOR  EQUIPMENT  QUANTITIES  TABLE  -  FLEET 
SUMMARY 

PRESENT  EQUIPMENT  (BEING  PROCESSED) 
PRESENT  SHIPCLASS  (BEING  PROCESSED) 


/3  l/7« 

23.53 

SHF  INS 

6 

SH 1  FINS 

9 

SHIPINS 

10 

SP 1  FINS 

u 

SHlflNS 

12 

SHI  FINS 

13 

SHJ  1  INS 

10 

SUFINS 

15 

SHI  FINS 

16 

SHIPINS 

17 

SHIFINS 

IS 

SHIPINS 

19 

SHIFINS 

20 

SHIFINS 

21 

SHIFINS 

22 

SHIFINS 

23 

SHIFINS 

20 

SHIFINS 

25 

SHIFINS 

26 

SHIFINS 

27 

SHIFINS 

2tt 

SHIFINS 

29 

SHIFINS 

3u 

SHIFINS 

31 

SHIFINS 

32 

SHIFINS 

33 

SHIFINS 

34 

SHIFINS 

25 

SHIFINS 

36 

SHIFINS 

37 

SHIFINS 

28 

SHIFINS 

39 

SHIFINS 

40 

SHI  FINS 

41 

SHIFINS 

42 

SHIFINS 

43 

SHI  FINS 

44 

SHIFINS 

45 

SHIPINS 

46 

SHIFINS 

47 

SYST 

2 

SYS  1 

3 

SYST 

4 

SYST 

5 

SYST 

6 

SYST 

7 

SYST 

S 

SYST 

9 

SYST 

10 

SYS  1 

11 

SYST 

12 

SYST 

13 

SYST 

14 

SYST 

IS 

SYST 

16 

SYST 

17 

SYST 

18 
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74/74  OF-T»2 


FTN  4.E.4JJ 


07/J1/79  2J.5J.41 


C 

S  1ST 

1* 

210 

COMMCN  /  NAMKS 

/  NFSYS,  NUSie,  NMSUI(2,4J>,  NCCOMFUJ), 

SYST 

2u 

1  NkCOMF<  2, 10  J  .  -.3)  ,  NAME  SC  (1  Jt  ,21  ,E0UI,  SHIFKM 

SYST 

21 

INTECt*  ECUI.SHIPNM 

SYST 

22 

C  ♦ 

STST 

23 

c 

SYST 

24 

2  3* 

c 

MAP 

-  COUNT  OF  DIFFERENT  AFPROPRI ATI  UN  CIOES 

SYST 

25 

c 

APPRO  1  1 

-  APPNOPKi ATICN  CCOE  NAMES 

SYST 

2b 

c 

SPCLI  .  1 

-  PERCENTAGES  FOR  CBS  :leh*-nt  COST  splits 

SYST 

27 

c 

NPH 

-  COUNT  OF  THE  LIFl  CVClf  FHAScS 

SYST 

2d 

c 

IFM(  1 

-  FIRST  CSS  cLfMENT  MJM0E K  OF  lACP  PHASE 

SYST 

25 

24G 

c 

IPS  t  ) 

-  CBS  ELEMCNT  NUHESF  FON  face  SPEAKS 

SYST 

2  J 

c 

(LAST  CBS  NUMPFfi  FUA  THE  PACE) 

SYST 

21 

c 

IPHASi  t  t  > 

-  TITLES  CF  CBS  PHASES 

SYST 

22 

c 

FLEET! 

-  FLEET  (SYSTEM  SIZE 

SYS  T 

33 

c 

NftOLL  (  ) 

•  LOWEST  COST  ELtHENT  LEVEL  TO  BE  PRINTED 

5  YST 

14 

245 

c 

(LOWEST  LEVEL  TO  6E  ROLlfcO  UP  WITHIN  PHASE) 

SYST 

25 

c 

RDTCT 

-  TOTAL  ROTLE  COST 

SYST 

26 

c 

TOT INV 

-  TOTAL  INVESTMENT  COST  MINUS  TOTAL  RIfOUT 

SYST 

27 

c 

TOTRTF 

•  TOTAL  R I POUT  COST 

S  1ST 

26 

c 

SMI  SRC 

•  MISSILE  NOT L E  COST 

SYST 

29 

250 

c 

NOFLY 

-  HUMBER  OF  CBS  ELEMENTS  TO  BE  INCLUCEC  IN 

SYST 

48 

c 

FLYAWAY  COSTS 

SYST 

41 

c 

IFLYRCWC  ) 

•  CBS  ELEMENT  NUMBER  FOR  FLYAWAY  COSTS 

SYST 

42 

c 

NOYRS 

-  NUMBER  OF  YEARS  IN  SMTP  INSTALLATION  TABLE 

SYST 

43 

c 

IYEARS 

-  YEARS  COVEREC  BY  THE  SHIP  INSTALLATION  TABLE 

SYST 

44 

255 

c 

IYR  S 

-  NUMBER  OF  YEARS  IN  SHIP  INSTALLATICN  TABLE 

S  IS  T 

45 

c 

PLUS  ONE  ICOLUMNS  FOR  PRINTING  SHIF/INST  TABLE) 

SYST 

46 

c 

FNOTE  S  (  .  » 

-  FOOTNOTES  FOP  FIRST  TWO  MAJOR  OUTPUT  CHARTS 

SYST 

47 

c 

SYST 

46 

COMMON  /  MISC  / 

NAP,APPRO(7l,SPCLC5,E,2l ,NPM, TPM (41 ,IPB(JI, 

S  1ST 

49 

2€0 

1  IPMASt(2.4),FLEET  Z.NROLL  (4)  ,R01  OT  .  TOIIN  V  ,T  CTRJP  , 

SYST 

50 

2  SHISRO 

,  NOF(.Y, IFLY*OW(25>  .NOYRS,  I  YEARS  (12),  IYRS, 

SYST 

51 

J  FNOTES  <  5 1 12 ) 

SYST 

52 

INTEGER  APPRO, S 

pcl.fleett 

SYST 

53 

c 

SYST 

54 

2es 

01  HEMS  ION  IOUHMY(IO) 

CATAOP 

13 

01  ME  NS ICA  NMOUM (43) 

QATACP 

14 

REAL  ICUMMY 

CATAOP 

15 

INTEGIF  CERCTX6 

OATAOP 

16 

DIMENSION  FNTU0J(J),FMTn91(J> 

CATACP 

17 

2  7  0 

INTEGER  FMTlluo 

•  FHTim 

CA1ACF 

Id 

c 

OUTPUT  COST 

ELEMENT  DESCRIPTIONS 

CATAOP 

19 

K2ERO  *  IMG 

CATACP 

20 

KONE  s  1H1 

CATACP 

21 

CALL  Ht AO 

CATACP 

22 

2  75 

WRITE  (6.1JJ1I 

K2EPO 

CA1AOP 

23 

WRITE  (E.ltGwl 

KZLkO 

CATACP 

24 

1ROLLIC  *  u 

CATAOP 

25 

1  NOE  X  *  1 

CAI ACP 

2b 

MO  PH  *  LcMR/5 

CAIAOM 

27 

2»b 

L I T  MLS  =  l 

CATACP 

26 

DO  2 J  1*1,5 

OATAOP 

25 

CALL  RiACMi,  (2t 

A  kA  Y »  cfcNP • I  NO  £X ♦ I ) 

CATACP 

3m 

DO  28  w*l.MOPP 

QATACP 

21 

1NDXL  s  JH 

CATAOP 

*2 

2tl 

INOXF  *  INUXL-4 

CATACP 

23 
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74 b/74  0FT»2 


FTl<  *♦  •  6  ♦  4  3  3 


y7/ll/7H  25.S3.**! 


290 


295 


300 


335 


310 


315 


32 1 


3  25 


33. 


3  35 


140 


NO  *  tl*l)»HDPR  ♦  J 

CAT  ACF 

24 

IROLIIC  *  IRCLLIO  ♦  1 

CA1AOP 

35 

WRITE  (61IJUI  NO,  ( AR AY ( K ) ,  K= 1NOXF, I  SOX L> ,  IKO  LL  (  IRCLLIO  ) 

OAIAOP 

36 

IF  < U -l)*HOFR*J.GE.NW0S>  GO  TO  30 

CATAOP 

37 

c 

CA1ACF 

36 

c 

PERFORM  THE  tITMOS  TEST t  IF  TRUE.  WRITE  PHASE-BREAK  PAGE  HEADING 

OAIAOP 

39 

c 

CATAOP 

40 

IF  (LITMUS. GT. 3!  GO  TO  20 

CATAOF 

41 

IF  (<(l-l)*MOPR  ♦  Jl  .tQ.  IPB  ( LIT  HUS!  !  GO  TO  10 

CAT  ACP 

42 

GO  TO  20 

CAIAOP 

43 

10 

LITMUS  •  LITMUS  ♦  1 

OAIAOP 

44 

WRITE  (6 .  lOOul  KONE 

CAIAOP 

45 

20 

CONTINUE 

OAIAOP 

46 

c 

OUTPUT  SYSTEM  OATA 

OAIAOP 

47 

30 

INDEX  •  6 

OAIAOP 

46 

MOPR  *  HCPR/2 

CATAOP 

49 

c 

CAIAOP 

50 

c 

OUTPUT  SHIP  CLASS/EOUIPHENT  CATA 

CA I ACP 

51 

c 

CAIAOP 

52 

c 

NCT  -  NCT  IS  THE  TOTAL  NUMBER  OF  VALUES  STOREO  IN  1HE 

CA 1 ACP 

53 

c 

-IR£C~  ARRAT 

OAIAOP 

54 

c 

isuectR  -  isuecER  is  a  locaticn  counter  for  getting  values 

CAT  ACP 

55 

c 

IN  THE  "ICER“  ARRAY 

OAIAOP 

56 

<»0 

CONTINUE 

CAT  ACF 

57 

NCT  a  IRECUI  •  3 

OAIAOP 

56 

ISUBCER  >  L 

CAIACP 

59 

ISNC  *  1 

CAT ACP 

EG 

c 

OAIAOP 

El 

c 

PRINT  ALL  TPUT  NPUT,  (  CER  INPUT  .FROM  NS  UNITS!  BY  ECUIFNINT 

OAIAOF 

E2 

c 

CAIACP 

E3 

U0  75  1*1  .ICCT  R 

CAIACP 

E4 

c 

CAIAOP 

€5 

c 

GET  ALL  THE  SHIP  CLASS  NAHES  THAT  THIS  EQUIPMENT  IS  ON 

CAIAOP 

E6 

ICOUNT  •  0 

CAIACP 

E7 

00  Ul  11*3, NCT, 3 

CAIAOP 

(6 

IF  (  I  tER  ( ISUBCLKI  .ME.  IRECUI)  )  GO  TO  At 

OAIAOP 

E9 

ICOUST  *  ICOUNT  ♦  1 

CAIAOP 

70 

SMC UP ( I  COUNT)  *  IREC(II-l) 

CAIACP 

71 

INDEX  *  TRICIIIUI 

CAIAOP 

72 

41 

CONTINUE 

C  1 1  ACP 

73 

c 

CAIAOP 

74 

c 

WHITE  A  HE  A0  IMG  List  WITH  THE  EOtIPWENT  FAME  I  ITS  SHIP  CLASS  HANES 

C  AT  ACF 

75 

c 

OAT  ACP 

7fc 

WRITE  <6,10*0)  NAHtSC  (ISNC  ,1)  , NAM  ESC  (ISNC  *2 )  «  (NNOUN  (K  )  ,  K«  1 , 1 L  CLNU 

CAT  ACF 

77 

IPUT  ■  1 0 MT HhO UGHPUT 

CAIAOP 

76 

WRITE  (6,105x4)  I  FUT 

CAIAOP 

79 

CALL  REAOHS  (2,AFAY,l£NR, INOEX  ) 

CAT  ACF 

eti 

00  5tf  j»1,NOPR 

CAIACP 

Cl 

I NO  XL  «  J*10 

OAIAOP 

62 

XNOXF  *  INOXL-9 

OAIAOP 

<3 

ISU0OUP  »  0 

CAIAOP 

<4 

00  45  IOUN*lNOXF, INOXL 

CATAOP 

85 

ISU8CUP  a  ISU80UN  ♦  1 

CAIAOP 

66 

IF  <  ARAYUOUN)  •  N£«  0  I  GO  TO  42 

CAIAOP 

67 

XOUNPt (1SU0OUH)  a  10H 

OAIAOP 

66 

GO  TG  45 

CAIACP 

69 

A  2 

CONT INUE 

OAIAOP 

50 
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SUCRUUTINt  1 

OATAOP  74//4  OFT *2 

FT  N  4  »  6 at.  33 

07/31/79 

23*53.41 

IOUHCYIISUBDUH)  a  OhAY (10UHI 

CATAOP 

91 

45 

CONTINUE 

CATACP 

92 

345 

55 

WRITE  (6.10301  INOXF,  INCXL.  (lOUNMKK),  K*l, 

ISUBCUHt 

OATAOP 

93 

C 

CATACP 

94 

c 

SET  EQUIFNtNT  RAM  LtR  OATA  FROr  HASS  STORAGE 

UNIT  3 

CATAOP 

95 

c 

CATACP 

96 

INOCER  =  ICEK ( ISUBCER* 1) 

CATACP 

97 

35L 

CALL  RFAOHS  1  a .  CEKCT •  1.  INOCEN  ) 

CATAOP 

50 

IF  (CEaCT.CT.u)  GO  TO  61 

CATAOP 

99 

GO  TO  65 

CATACP 

ICO 

61 

CONTINUE 

OATAOP 

1C1 

IPUT  »  1 ONCER  INPUT 

CAIACP 

uz 

3  *55 

WRITE  (6.1070)  1FUT 

CATAOP 

lui 

CERCTXt  a  CERCT  *  b 

CAtAOP 

144 

CALL  RFAOHS  (d.lFOKC  .CfckCT  ,INOCER*l) 

Cm  1 A  l»P 

165 

CALL  RiAOHS  (O.lKOMIU  .CERCT  ,INCCFK*2) 

CAIACP 

146 

CALL  RFAOHS  (8.IAU0  . CERCT  •  INOCE  Fa 31 

OA 1 AOP 

107 

3£C 

CALL  R6ACNS  (8.ILERN0  .CERCT  .IN0CERF4) 

CATACP 

1Q6 

CALL  FEAOHS  (« , I XREFNO, CERCT  iINOCERFSI 

CATAOP 

169 

CALL  RFAOHS  (6.IXREFA0.CERCT  ,INCCER»6) 

CAIACP 

1 14 

CALL  RFAOHS  (6 .IFSTORE .CERCTX6 ■ I NOCE k*/ 1 

OATAOP 

111 

CALL  AlAOHS  (8,P'STOnE,CERCTX6,IKCCEF*0) 

CATAOP 

112 

WRITE  (b.lLSn)  (K2.K2al.61 

CATAOP 

113 

c 

CATACP 

114 

c 

WRITE  IN  OUTPUT  OETAIL  LIN)  FOR  tACH  CLR  FOR 

THIS  FOUIFMtNT 

CAIACP 

115 

c 

CAIACP 

116 

OO  62  K«l, CERCT 

CAIACP 

11T 

17  . 

WRITE  16.1555)  IFOkC(K)  .IRCWID  (K)  .IAOQ1KI  .ICERNO(K)  , 

CATACP 

lltt 

1 

C  IXREFFC(K) .IXREFAO(K), (IF STORE (Kl.K) .PSSTORE (K1 , X) ,K1 11, 6) 

CATAOP 

119 

62 

CONTINUE 

CATAOP 

1<0 

65 

CONTINUE 

CAIACP 

121 

ISUBCEE  a  lSUBCtu  «  3 

CATACP 

122 

375 

ISNC  <  ISNC  t  1 

CATAOP 

123 

75 

CONTINUE 

CATAOP 

124 

c 

CATAOP 

125 

c 

OUTPUT  SHIP  INSTALLATION  SCHE0UL6 

CATAOP 

126 

c 

CATACP 

127 

JflC 

CALL  HCAO 

OATAOP 

126 

WRITE  (6,10901  FLEETZ 

CATACP 

129 

ITOTAL  a  5HTOTAL 

CATAOP 

130 

ISPACE  a  (136  -  (lIYRS*ai  ♦  10)1/2 

CATACP 

131 

ISPAC1  «  ISPACE  ♦  15 

CATAOP 

132 

3£5 

1191 

FOR  HAT  (AN  (IHli,  I2.2HX.  .12,  1  1H  II  4  »  4X  ),  A5I  ) 

OATAOP 

133 

ENCOOE ( 35. 1191 .FHT1191 )  IS  FAC  I.NOYRS 

CATAOP 

134 

WRITEIF  .FNT1191)  (ITEARSdl.Ial.NCTRS)  .ITOTAL 

CATACP 

135 

1105 

FORMAT  (4  F  ( 1  H[i  ,  12, 5NX.  A6.4X  ,  ,12 ,3NIdl  ) 

CATAOP 

13b 

ENCOOE  llcl.lltiu  .FHT110J)  ISFACE.IYRS 

CATACP 

137 

3QC 

00  80  I«1,N0SU6 

OATAOP 

136 

WRITE  (E.FHTlluO)  (  SINSTB)  I  ,K1  ,  K*1 »  IYRS)  ,  SNIFSUNd  ) 

CATACP 

139 

05 

CONTINUE 

CATAOP 

140 

c 

OAI AGP 

141 

c 

OUTPUT  EQUIPMENT  SCHtCUtE  PER  SHIP 

CATAOP 

142 

3  95 

c 

CATACP 

143 

CALL  Hi  AO 

OATAOP 

144 

wPITt  (6 •  1114) 

CATACP 

145 

NCT  *  2 

CATAOP 

14b 

NCTBY3  *  3 

CATAOP 

147 
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*Ui*OUT!Kt  OATAOP 
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«7 /21/7*  23,63.41 


4-U 


4f*.S 


41  C 


415 


42; 


42«- 


4 


44-8 


4bi 


NCT8Y1  »  1 

CAT  ACF 

14* 

c 

CAT  AOP 

148 

DO  120  IM.NOSIB 

CAT  ACP 

ISO 

4C0HF  «  NCwOMPdl 

CA1AOP 

1*1 

WRITE  16.1120)  lwELINCTt 

CA 1 AOP 

1*2 

KARA*  ■  1H* 

C  A 1 ACF 

1  S3 

c 

OA1AOP 

1S4 

00  110  JM.NCOMP 

CAT  ACP 

1SS 

WRITE  lb  ,114.1  KAAAK.lUtC (NCT*1I .£ST ABLE INCTBY31 .CSTFBEl INCTBT1) 

CAT  ACP 

1S6 

NCT  *  4CI  *  3 

CA1 ACP 

1*7 

NCT8T3  •  NCTRt 3  ♦  3 

CAT  FOP 

tse 

NCT8V1  ■  M.TJV1  ♦  1 

OA 1 ACP 

1*9 

KA8  A  K  *  1H 

OAT ACF 

ICC 

lie 

CONTINLE 

OATAOP 

1C1 

120 

CONTINUE 

CAT  ACP 

1(2 

CALL  Ht  AO 

CAT  AOP 

1C  3 

WRITE  It, 1J13I  XlLRO.NUFLY 

CAT AOP 

1(4 

U03 

FORMAT  IA1. 61,  ‘LISTING  OF  THE  *,I3,*  COST  ELEMENTS  IKCL'OtO  IN  FLTA 

CAT AOP 

1(5 

t«AT  COiTSM 

CAT  AOP 

1(0 

WRITE  IF  ,  13w4l  KIsRCl,  IIFLTNCWIN  I  ,N*1, NOFLY  1 

CAT  ACP 

1(7 

10  04 

FORMAT  (A1.8X.1415 ) 

CA  T  ACP 

ltd 

1000 

FORMAT  M1.9X, •APPRO  CCOE  COST  ELEMENT* , 35X,*ROLLUP*  /  > 

C A  T  ACP 

1(9 

l.il 

FORMAT  111,  •FORMATTED  LISTING  CF  INPUT  FILE  FROM  “J1TACP“M 

CAT  ACP 

1  73 

1)13 

FORMAT  1  U*.  IE,  5*.  EA10,  III)  1 

CAT  ACF 

in 

U2'J 

FORMAT  IlHl.BX, ‘SYSTEM  INPUT  CAT**// 

CA  T  AOP 

172 

•  lX,*INOt *••#*. •!♦, 11X « • 2*,11X ,  *3* ,11X,*4*,11X,*5*,11X,*6*, 

OAT  ACF 

113 

•  in,*:*.iix,*«*,iix,*9*,tix,»c*/> 

QA  T  AOP 

174 

1030 

FORMAT  (1*.I4,*-*.14,1J<2X,41QM 

CAT  AOP 

1  75 

10  40 

FOPMAT  I1H1.A7, 1X.A7,*  IS  OPERATED  ON  SHIP  CLASSES*, 13I3X.A6)/ 

CAT  AOP 

176 

C  (43X.1U I3X, 46)11 

CA 1 ACF 

177 

10«4 

FORMAT  <  *-*,110  /  1X.1.IH—  — — — —  -  / 

CAT AOP 

17* 

•  3X,*IflCtX*,4X,*l*,  11X  ,*2»,llX,*3*.ltX  ,*4*,11X,*5*.11X,*6  *, 

CAT  ACF 

178 

•  11X,*7*»11X,*6*,11X,*9*,10X,*13*  /  1 

CAT AOP 

1(3 

1060 

f  OF  HAT  t///i 

CA  T  ACP 

1K1 

lu7) 

FORMAT  1  •“*  ,Alu  /  IX,  1  OH - - - 1 

CAT  ACP 

1(2 

10  04 

FORMAT  IUM0F  CBS  CER  CES  ,6  «5X,  »P  AkAMC  TE  R  »»,I21  / 

CAT  ACF 

103 

1  19H  c  ROW  NO.  XREF  ,6(5X,*IF  >  FACTOR)*)/! 

CA  T  ACP 

1(4 

iaas 

FOPMAT  (11,  41,14,12,15,14,12,6  I5X  ,  A1 , 1 FG1 2 .6 )) 

CAT  ACP 

1(5 

1090 

FOPMAT  IIM-.42X  ,*SMIP  INSTALLATION  SCHEDULE  -  ». 

OAT  ACP 

1(6 

l*BASEO  CN * , 14 , •  SHIP  FLEET*  1 

OAT  ACP 

1(7 

1110 

FORMAT (lH-,5lX.*6QUlPPtNr  ELEMENTS  PER  SHIP*/ 

CA 1 ACP 

ie* 

1  1HB,52X,*L0UIPNENT*,5X, ‘OPERATIONAL*, SX, • I MIEST M£HT*/ 

CAT ACP 

1(9 

2  37X,*5MIP  CLASS*, bX, *tLEMf NT • ,T X , *QUAN T ITY • , AX, *CUANTITY*I 

CA  T  ACP 

ISC 

1120 

FORMAT  I1H1»,36X,A6> 

OA  T  ACP 

i*i 

1140 

FORMAT  (A1.53X  ,A6.  U2.F1A.  2) 

CA1 ACP 

1«2 

RETURN 

OATAOP 

153 

c 

CAT  ACP 

1<4 

C  SECONO  coil  CF  OAT  A OP  PRINTS  FLEE7  TOTAL  EQUI PHENT  RtCUIRt RENTS 

CAT  ACP 

1?5 

c 

0 A  T  ACP 

l«b 

ENTRY  CATCH 

CAT  AOP 

1*7 

CALL  Hit 0 

CA  T  AOP 

1*3 

UPUf  (6.116  a)  FlEcTZ 

CAT AOP 

1*9 

00  130  1*1. 1CCT* 

CAT  ACF 

2U 

WRITE  16,1170  IIAMLSCII.l)  .NAMESC  II  ,2  1 ,0c  MPT  1 1 ),  QCMPT2  II ) 

CA  T  AOP 

2C1 

130 

CONTIIILE 

CAT  ACP 

cl  Z 

116„ 

FOPMAT  11 H*  ,42X  ,  •  EOUI PMENT  ELEMENT  OUANTITES  -  *,I3,*  SUP  FLEET  SU 

CAT  AOP 

2C3 

2MMARY*/1M i ,42X ,*EQUIPMCNT* , 14X ,*OFtR AT  ION AL* , 10X , • I NVC STMENT*/ 

CmTACF 

214 

i 

i 
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C7/2j/7«  23  •  S3*  •*  1 


3  ‘•3X,*IL£HlNT*  ,ltX  »*OUANTI  TY*  •  13X  »  +QUAHT1  TYM 
1170  FORMAT  UNu,3fiXt2UX,A7>,U*X,I7,l3XfFlj.2> 
FETUFN 
£NO 


CATACF  21,5 
CaTACF  216 
CATACP  207 
CATAOP  2C6 
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j 


1 


n 


15 


2C 


25 


3C 


35 


4Q 


45 


51 


FUNCTION  ICCMP  OMI** 


FTN  4. 6*433 


C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 


FUNCTION  ILCMP  (X  SUb) 


NAHiS  C  C r*HCN 


NMSYS 
NOSUfi 
NHS L0  (  ,  I 
NOCCHM  I 

nmccmm  •  , 


NAMESC  (  t  I 


equi 

$HlFNM 


NANt  OF  T Me  SYSTtr* 

10TAL  NUMB)  A  OF  SMJFUASCES  CONSICEREO 
HAHt  Of  THC  SHIPCIASS  2*  7WC  WORDS 
XI4>)£X  NU H0£f)  FOR  EQUIPMENTS  (COMPONENTS) 
(r.UhNXNG  TOTAL  For  EQUIPMENTS) 

MAMfcS  OF  EQUIPHENT  (2  WOPOS)  FC«  TITLES 
IN  WBSOUT  <lKOc.XFO  R Y  lCUIPM-NT  NUHGfcR 
mNO  SHIPCLASS  NUHBE ► ) 

NAMES  OF  EQUIPMENT  12  wOAOS,  7  LEAFS  EACH) 
FOR  lQUIPHENT  QUANTITIES  TABLE  •  FLEET 
SUMMARY 

PRESENT  tOLiPNENT  iBi'XNG  PROCESSED) 
PktStNT  SHIPCLASS  (BEING  PkOCESSEO) 


COMMON  /  NAMES  /  NMSYS,  NOSUfi,  NHSUH  (2  ,43)  ,  NCCJMPUJ), 
1  NMCOMP  (  <,  XU3«<«3)9NAMESCU:  0,2)»ECUI,SHIPNH 

INTEGER  cQUI.SHIPNM 

•  fMViMVMttHJSC  (MISCELLANEOUS)  COMMON  *♦••##♦•#••••*#••# 


NAP 

APPRO (  ) 
SPCll  •  » 
NPM 
IPHI  ) 

IPS  (  ) 

IPH AS  E (  ,  I 
FLEET  2 
NPOIL (  I 

ROT  CT 
TOT  IN V 
TOTRIF 
SMI  SRC 
NOFLY 

IFL  YR  CM  <  I 
NOYRS 
IYEAPS 
IYRS 

FNOTf  S (  ,  ) 


COUNT  OF  DIFFERENT  APPROPRIATION  CCOES 

APPROPRIATION  CODE  NAMES 

PERCENTAGES  FOR  CBS  CLEMENT  COST  SPLITS 

COUNT  OF  THE  LIFE  CYCLE  PHASES 

FIRST  CBS  ELEMENT  NUMBER  OF  EACH  PHASE 

CBS  ELEMENT  NUMeffi  FOR  PAGE  BREAKS 

(LAST  CBS  NUMBER  FOR  THE  PAGE) 

TITLES  CF  CBS  PHASES 
FLEtT  (SYSTEM)  SIZE 

LOWEST  COST  ELEMENT  LEVEL  TC  BE  PRINTED 
(LOWEST  LEVEL  TO  BE  ROLLEQ  UP  WITHIN  PHASE) 
TOTAL  ROUE  COST 

TOTAL  INVESTMENT  COST  MINUS  TOTAL  RIFOUT 
TOTAL  RIFOUT  COST 
MISSILE  HOT 1 E  CCST 

NUMBER  OF  CBS  ELEMENTS  TO  BE  INCLUCEC  IN 

flyaway  costs 

CBS  ELEMENT  NUMBER  FOR  FLYAWAY  COSTS 
NUMBER  OF  YEARS  IN  SHIP  INS T ALL AT  I CN  TABLE 
YEARS  COVEREC  BY  THE  SHIP  INSTALLATION  TABLE 
NUMBER  GF  YEAFS  IN  SHIP  INSTALLATION  TABLE 
PLUS  ONE  (COLUMNS  FOk  PRINTING  ShIF/INST  TABLE) 
FOOTNOTES  FOP  FIRST  THO  MAJOR  OLTPLT  CHARTS 


COMMON  /  MISC  /  MAP.APPf 0(7) ,SPCL (3,fe,2) ,NPH, IPMI4) ,IFB(3) • 

1  IFHASE(2,4I,  FLfctTZ,KRQlL(4),RCT0T,T0TINV,TCTRIP, 

2  SMI SRO, NOFLY , I FLY  ROW ( 25)  , NOYRS, I  YE  AR  S  ( 12 ) ,  IYRS, 

3  FNOTLS (5, 12) 

INTEOfc  T  APPRO* SPCL.FLttTZ 


NCP  «  1 

IF  (IStB.EO.l)  GO  TO  AG 
IS  «  ISUfi-1 


tr/  2 l/7« 


ICCFP 

SYST 

SYST 

SYST 

SYST 

SYST 

SYST 

SYST 

SYST 

SYST 

SYST 

SYST 

SYST 

SYST 

SYST 

SYST 

SYS! 

SYST 

SYST 

SYST 

SYST 

SYST 

SYST 

SYST 

SYST 

SYST 

SYST 

SYST 

SYST 

SYST 

SYS  T 

SYST 

SYST 

SYST 

SYST 

SYST 

SYST 

SYST 

SYST 

SYST 

SYST 

SYST 

SYST 

SYST 

SYST 

SYST 

SYST 

SYST 

SYST 

SYST 

SYST 

SYST 

SYST 

SYST 

ICCMP 

ICC  HP 

ICCPF 


23.53.41 


2 

2 

3 

4 

5 
b 
7 

6 
9 

10 

u 

12 

13 

14 

15 

16 

17 

18 
19 
2  0 
21 
22 

23 

24 

25 

26 
27 
26 

29 

30 

a 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 
46 

49 

50 

51 

52 

53 

54 

4 

5 

6 


i 


l 


j 


lr 
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PUI1CTICM  ICOMP 
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FT M  4.6*4ii 


u7/3l/7«  23.5i.4l 


DO  23  1*1. IS 

23  NCP  *  KCCOMP < I )  ♦  HCP 
43  ICOMF  =  NCP 
retupn 
END 


ICCMP 
ICCMP 
ICCMP 
ICC  PP 
ICCMP 


9 

10 

11 


SLEF0UT1NE  REFPT  ? 4/74  l)H»2  FTN  ,.i*USi 

1*7/31/79 

21.53. 

1 

SUe»OUlIH£  RI'.FMT  <11,0*0,  CH  CRD, NHCS.ISH1FTI 

R£FM 

2 

DIMENSION  IMUKCUI 

M.F  KT 

3 

INTEGER  cCUliT  t  HP  < 20) ,  OWCF C  C 1 1 

refpt 

H 

NCHAFS  =  li'NWOS 

RtFM 

5 

r- 

raui  =  ijm 

fifc  F  M 

6 

COMP1  =  tQUI 

REF^T 

7 

INC  =  J 

nEFKT 

6 

ISK  *  J 

REFKT 

9 

00  S  1  =  1  t  ML  MAKS 

HgFrT 

1U 

lu 

5 

TEMP  (I  I  =  10H 

KcFKT 

11 

00  30  1=1, MHOS 

htFKT 

12 

00  3  !i  J=  1 , 1 J 

KEF  K  T 

13 

CALL  MCVE  tlwOPOUl.J. tQUI, 1.11 

RtF^T 

14 

IF  (  ECUI.NE.lh  I  GO  TO  10 

KEF  KT 

15 

It 

IF  (IBK.EC.ll  GO  TO  30 

*E  F  F  T 

16 

IBK  =  1 

KfcFFT 

17 

GO  TO  ia 

KEF  F T 

16 

10 

IBK  <  0 

REFFT 

19 

<0 

INC  *  INC*1 

REF 

2J 

2C 

CALL  MCVE  (EQUI ,1, TEMP (INC ), 1,11 

KEF*T 

21 

3C 

CONT 1NLE 

KEF  FT 

22 

IF  IIBK.EQ.il  ING=INC-1 

REFFT 

23 

IF  1  ICC  ,EQ,  -1  I  GO  TO  40 

KtFFT 

24 

ISKIP  =  a 

REFFT 

25 

25 

IF  (ISHFT.E0.1HCI  ISKIP  =  (MCHARS-I  NCI/2 

KEF  FT 

26 

IF  (ISHFT.E0.1MM1  ISKIP  «  NCHAHS-INC 

REFFT 

27 

ENCODE  ( 10, 1C  A  ,  IF  MT  1  ISKIP, INC 

HfeFFT 

26 

100 

FORMAT  (1H(,12,2HX,,I2, 3HA 1 1 1 

kefft 

29 

ENCODE  (NCHAKS ,IFMT , OHORDI  1 Tt MF (I 1 , I* 1 , I NC 1 

REFFT 

3u 

RETURN 

REFFT 

21 

C 

RtFHT 

32 

C 

A  BLANK  HOMO  HAS  BEEN  FCUNO  RETURN  A  BLANK 

KEF  r  T 

33 

40 

CONTINUE 

REFFT 

24 

c 

KEFFT 

35 

7  C 

00  50  1=1 « NW05 

KEFfT 

36 

OMORCUI  •  COHP1 

REFFT 

37 

50 

CONTINUE 

REFFT 

36 

RFTURN 

KEF  rT 

39 

ENO 

KEFFT 

4a 
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ST3f.AGc  ALLOCATION 


A  QOfc  F  SS  LENGTH 

0  P‘4 

5A 


CCrtP  ASi>  S.J-%2.*  C7/31/7?  23*5<**J7. 


BINARY  CONTROL  CAROS* 

XOENr  MOVL.2 
ENC 


fchTKV  POINTS* 
HOVE 
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o  •*  ^ 

a «  x 

*  x  o 


3  * 

x  a 
z  z 
•-  u 


t  a. 
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x  a 


<-i  *- 

o  o 
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<n  o 
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a 
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Z.fe'/1(SCDX<0<CXXXXXXXXXXX 
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w 


'H 


*im  .2 
svf-ecLic 

kEFLRt  AC£ 

7A81E. 

COMPASS  1.3-42 

"Chit 

1 

PROGRAM* 

2/1J 

E 

2/11 

2/12 

L  4/  ;  9 

MU/i  1 

3 

PROGRAM* 

2/15 

L 

2/47 

MCVL1C 

36 

PROGRAM* 

3/25 

1/32  L 

4/11 

MG  Vf  11 

42 

PROGRAM* 

3/41 

3/45  L 

MG  Vt  12 

44 

PRGGf  AM* 

3/38 

3/R4 

3/5  0 

L 

MGi/K  13 

45 

PROGRAM* 

3/52 

1 

4/13 

MGV.14 

47 

FRGGR AM* 

3/5h 

4/ul  L 

MG  Vf  15 

51 

PROGRAM* 

3/57 

4/08  l 

MOVl  1G 

52 

PROGRAM* 

3/51 

4/19  L 

MGVr  2 

5 

PROGRAM* 

2/17 

2/20  1 

MO Vt  3 

6 

PROGRAM* 

2/19 

2/21  l 

MG\/:3A 

13 

PROG*  AM* 

2/3  3 

2/37  L 

MOV*  4 

U 

PROGRAM* 

2/37 

2/46  L 

movt  5 

24 

PROGRAM* 

3/0  3 

3/06  t 

MOV'  l 

25 

FROGF  AM* 

3/3  5 

3/07  L 

"GV.  7 

3-j 

PRCGR AM* 

3/12 

3/16  L 

MCVt  t 

32 

PROGRAM* 

3/15 

3/21  l 

MC  Vt9 

34 

PkOGF  AM* 

3/21 

3/26  L 

LT/2l/?<,  il.  '4. 37. 


1 

j 

1 
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SUBRGU lift  CUMPCmP  <I9,Nl)XWS,NGXLEK,Q0UAN,a2l 

CCMfCMF 

2 

COHFCMF 

3 

TH 

S  ROUTINE 

COMPUTES  THE  life  cycle  COST  PtR  COMPONENT 

CCMFCKf 

4 

iiioepi  ncc  ni 

OF  SHIP  CLASS,  FCF  CNt  UNIT 

CCMFCMF 

5 

1  OF 

ANY  l  B  S 

UCMPCNCNT  CVCR  ALL  SHIP  CLASSES 

CCMFCMF 

& 

CCMFCMF 

7 

COFfCHF 

8 

SYST 

2 

>  ♦  i 

'  NAMES  CCMMCN 

SYS  T 

3 

SYST 

4 

NMSYS 

- 

NAME  OF  THE  SYSTEM 

SYST 

5 

NOSUB 

- 

total  NUMBtR  OF  SHIPCLASSES  CONSICcRED 

SYST 

6 

NMSue  < 

.  i 

• 

NAME  Of  the  shipclass  in  twc  HCROS 

SYST 

7 

NOCCMM 

) 

- 

INOEX  NUMBER  FOR  EQUIPMENTS  ICOPPCNENTSl 

SYST 

6 

(RUNNING  TOTAL  ROP  EQUIPMENTS! 

SYST 

9 

NMCCMM 

.  •  i 

- 

NAMES  OF  EQUIPMENT  <2  WORCSI  FCR  TITLES 

SYST 

10 

IN  HOSOUT  (iNOEXtO  BY  EQUIPMENT  NUMBER 

SYST 

11 

ANO  SHIPCLASS  NUMBER  l 

SYST 

12 

NAN6SC  < 

.  i 

- 

names  or  Equipment  12  words,  r  qpafs  each. 

SYST 

13 

RUN  EQUIPMENT  QUANTITIES  TABLE  -  FLEET 

SYST 

14 

SUMMARY 

SYST 

IS 

EQUI 

- 

PRESENT  EQUIPMENT  (BEING  PROCESSED 

SYST 

16 

SHIFNM 

• 

PRESENT  SHIPCLASS  (BEING  FROLESSEOI 

SYST 

IT 

SYST 

14 

SYST 

19 

COMMON  / 

NAMES 

/ 

'  NMSYS,  NOSUB,  NMSUB (2 ,43* ,  NCC0MP(43*, 

SYST 

20 

i 

NMC0MP<2, 

1CJ.43I  .NAME  SCI  1 4(1, 2  ),£CU  I,  SHIFNM 

SYST 

21 

INTEGER 

EQUl • SHI FNM 

SYST 

22 

••♦♦HISC  \ 

[MISCELLANEOUS*  CCMMON  ••»♦» . . 

SYST 

E3 

SYST 

24 

NAP 

- 

COUNT  OF  DIFFERENT  APPROPRIATION  COOES 

SYST 

25 

APPRO  < 

) 

- 

APPROPRIATION  COOL  NAMES 

SYST 

26 

SPCL  t  , 

\ 

- 

PERCENTAGES  FOR  CBS  ELEMENT  COST  SPLITS 

SYST 

2T 

NPH 

- 

COUNT  CF  THE  LIFE  CYCLE  PHASES 

SYST 

28 

IPH(  ) 

- 

FIRST  CBS  ELEMENT  NUMBER  OF  fcACH  PFASE 

SYST 

29 

I PB  (  ) 

- 

CBS  ELe.HF.Nf  NUMetR  FOR  PAGE  BREAKS 

SYST 

30 

(LAST  CBS  NUMBER  FOR  THE  PAGE* 

SYST 

31 

IPM.SE 1 

•  > 

- 

TITLES  CF  CBS  PM  AS  t  S 

SYST 

22 

FLEfeTZ 

- 

FLEET  (SYSTEM*  SIZF 

SYST 

33 

NROtL  < 

) 

• 

LOHtST  (OST  ELEMENT  LEVEL  TO  Be  PRINTtO 

SYST 

34 

(LOWEST  LEVEL  TO  6L  ROLLED  UP  WITHIN  PHASE* 

SYST 

35 

ROTOT 

- 

TOTAL  ROUE  COST 

SYST 

36 

TOT  IN V 

- 

TOTAL  INVESTMENT  COST  MINUS  TOTAL  RIFOUT 

SYST 

37 

TOTH  F 

- 

TOTAL  R1FOUT  COST 

SYST 

38 

SMlSRC 

- 

MISSILE  FOTIE  COST 

SYST 

39 

NOFLY 

- 

NUMBER  OF  CBS  ELEMENTS  TO  BE  tNCLUCEt  IN 

SYST 

44 

FLYAWAY  COSTS 

SYST 

41 

IFLYPCM 

(  ) 

• 

CBS  t  LlM  LNT  NUMBER  FOR  FLYAWAY  COSTS 

SYST 

42 

HOYRS 

- 

NUMBER  OF  YEARS  IN  SHIP  INSTALE.TICN  TABLE 

SYST 

43 

IYFAFS 

- 

YEARS  COVERED  BY  THE  SHIP  INST  A  ELAT  ICN  TABLE 

SYST 

44 

IYRS 

- 

NUMBER  OF  YEANS  IN  SHIP  INSTALLATION  TABLE 

SYST 

46 

PLUS  ONE  (CC  LUMAS  FCR  PRINTING  SHF/INST  TABLE) 

SYST 

46 

fnote: t 

.  * 

- 

FOOTNOTES  ROF  FIRST  TWO  MAJOR  OLTFCT  CHARTS 

SYST 

4  T 

EYST 

48 

COMMON  / 

MISC  / 

NAP,  APPNU(7>  ,SFCL  (3,fe,2l  ,  NPH,  I PH  (A)  ,  IP6I  3*  , 

SYST 

49 

1 

IPMASE (2 i 

,41 .FLEET  2, NR  OLE (4* , ROTOT, TOT IN  V ,T  CTRIP, 

SYST 

SO 

2 

SMISRC* 

NOFLY,IFLYROW(ZE>  ,NUYR  S,  IYI  AR  S  ( 1  2  >  ,  IYR  S, 

SYST 

5 1 
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SLlkOLl  IN 

Z  COMFCHP  ?4/?4  OF T  =  2  FT  M  •..£♦‘•33 

JF/31/7S 

23*  53.41 

3  FNOTF.S1 

i  5* 12) 

S  UT 

52 

INTEGER  AFPRu.ShCL.FLtL'TZ 

SYS  T 

53 

64 

c 

SYST 

54 

c 

HS2 

2 

c 

•  *« 

m  St 

3 

c 

MS2 

4 

c 

MS  l 

5 

o5 

c 

LENR 

-  NASS  STORAGE  UNITS  COMMON  RtCOKC  LENGTH 

MS  2 

6 

c 

(TYPICALLY  150 

MS2 

7 

c 

NMBS 

-  NUMBER  OF  EL  t  HERTS  IN  T FE  CBS  (HA*  ISO! 

MS  c 

A 

c 

ICCTR 

-  NUMBER  OF  EQUIPMENTS  IN  THE  EQUIPMENT 

MS2 

9 

c 

CLEMENTS  TABLE 

MS  2 

10 

7C* 

c 

L  1  5  i) 

-  (150  WORCSI  F E CORO  LENGTH  OF  7  ARRAYS 

MS2 

11 

c 

IN  THE  “CEAVLS"  COMMON 

MS2 

12 

c 

4.900 

-  (BJO  HOMOS)  RECORD  LENGTH  OF  2  RRRAYS 

MS  2 

13 

c 

IN  THE  ••CEKVLS**  COMMON 

MS2 

14 

c 

MS  2 

15 

75 

COMMON  /  MS2  /  EEN*1NNBS,ICCTfi,E15).  E19E 

MS  t 

16 

c 

MS  2 

17 

c 

MS  2 

18 

c 

MS  2 

19 

c 

NPLT 

2 

at 

c« 

►*  •• 

NFLl 

3 

c 

NPLT 

4 

c 

VAR 

IOUS  CTHER  ARRAYS 

;  are  equivalenceo  to  the  -aray"  array  as  ini 

NFU  T 

5 

c 

KFUT 

6 

c 

SLCCM  «  ROW  * 

ARAY  U,i> 

NPLT 

7 

c 

BLOG  E  T  1  CG  = 

ARAY(1,2I 

NPLT 

6 

c 

INPUPC  1  IQkEC  » 

AR AY  (  1 «  1) 

NFL  1 

9 

c 

CONPCHPI  ROM  * 

ARAYU,  U 

NPL  T 

10 

c 

APCELH  1  IfiAY  « 

AKAY  ( 1 »  1) 

NPLT 

11 

c 

NFU  1 

12 

9U 

COMMON  /  Nf  UT 

/  AHAY (ISO • 2  > 

NPLT 

13 

c 

NPL  1 

14 

c 

CHAPTS 

2 

c 

»«« 

‘CHARTS  (CONTROI)  COMMON 

CHANTS 

3 

c 

tuns 

4 

95 

c 

CHARTS 

5 

c 

CHRTCFT  CONTAINS  THE  MAJOR  OUTPUT  CHART  CONTROLS 

CHA  PTS 

6 

c 

ii 

-  GENERATE  CM A FT 

CHAPTS 

7 

c 

1 

-  NO  GENERATION  OF  CHART 

C  E  A PTS 

0 

c 

CHAPTS 

9 

i  :t 

c 

CHRTCKT (1) 

-  if  equal  to  p  -  calls  Nescumi  fc.«  euuipmeni 

CHA ITS 

10 

c 

ELEMENT  LIFt  CYCLE  COSTS  -  FLEET  SUM  IARY 

CHA  ITS 

11 

c 

CHRTCKT  (2) 

-  IF  EQUAL  TO  Q  -  CALLS  weSOUTI?)  FOR  UNIT 

CHAPTS 

12 

c 

SHIP  COSTS  eY  EOUIFMENY  ELEMtNT 

CHARTS 

13 

c 

-  IF  Ft,  TO  0  -  CALLS  we$TOT  B (.CAUSE 

CHAPTS 

14 

135 

c 

HBSOUT (2 1  HAS  NOT  CALLED 

CHAPTS 

15 

c 

CHRTCNT (31 

-  IF  EQUAL  TO  3  -  CALLS  weS0U?(3)  FOR  SHIP 

CHAPTS 

lb 

c 

CLASS  SUMMARY 

CHA  ITS 

17 

c 

CHRTCKT (41 

-  IF  ECUAL  TO  il  -  CALLS  SLElGOF  FOR  LIFE 

CHARTS 

18 

c 

CYCLE  COSTS  BY  BUOGET  APPROPRIATIONS 

CPA  ns 

19 

lit 

c 

CMRTCM  (5) 

-  IF  N£ •  TO  0  -  CALLS  RCLCnT  FOR  OUTPUT  EY 

CHAPTS 

20 

c 

ROEL-UF  NUMBEP 

Cm  A  ns 

21 

c 

CHRTCNT  (61 

-  iF  EQUAL  TO  0  -  LISTS  THE  SU8ELS  ARRAY 

CHA  ITS 

22 

c 

FOR  ENTIPE  C  ES  FOP  PROOFING 

CHAPTS 

23 

c 

CHAITS 

24 

A-74 


- 

ecfouiirc  compcmp  ; '•/Tit  on- 

:  £  FT  N  •,  •  fc  *k  3  J 

v7/3j/74 

23.53.vl 

115 

c 

CNAFTS 

25 

COMNCN  /  CHA«rS 

/  CMMTCNT  (15) 

CNAfTS 

26 

INTtGfh  CHkTCnT 

CHASTS 

zr 

c 

CERVLS 

2 

c 

CERVLS 

S 

12. 

c 

*  *♦ 

*♦  CEP VlS  (COST 

ESTIMATING  RELATIONSHIP  (CER)  VALUES)  COMMON 

*•  CERVLS 

4 

c 

CERVLS 

5 

c 

THt  CfhVLS  COMMuN 

CONTAINS  LOCATIONS  FCk  STORAGE  CF  THE  CEP 

CEhVLS 

6 

c 

INPUT  CAPO  COUNT,  Tut 

RON  ID'S.  THt  CER  EOUATIOM  NUMBERS.  Tht 

CEhVLS 

7 

c 

NON 

CROSS  ►EFckEnCE 

NUMBERS.  IRE  INPUT  P  ARAME  Tfc  RS  »  TmE  ACOITION 

CEnvlS 

a 

125 

c 

OR  1 

CERS  CONTROL  ,  ST 

uNAGt  ARP AT  PUN  EQUIF  Mf NT  NAME.  CEP  INCtX, 

CENVLS 

9 

c 

ANO 

TPUT/NFlJf  iNOtXtS 

F0p<  ALL  C.QLIFNENT  INPUT. 

CERVLS 

lu 

c 

CEhVLS 

11 

c 

CERCT 

- 

NUMBtK  OP  CE. *S  FOk  THIS  FA.riCtLAR  cQUlFMtRT 

CEHVLS 

12 

c 

(1  WORD) 

C  E  h  X  L  S 

13 

1  it 

c 

I F OKC  (  ) 

- 

IF  OR  C>  ALPHABETIC  (HARACTErc  INCICATINC 

CERVLS 

14 

c 

‘FACTOR'  OR  'CfcR  * «  (15u  MCPOS) 

CtRVLS 

15 

c 

IRONIC 

- 

LBS  tLLMENT  NUMfitR  TO  MUCH  THIS  CER  APPlIfcS 

CEHVLS 

16 

c 

(ISO  HORCS) 

CEhVLS 

17 

c 

I  aoo 

• 

CER  CONTkOL  FLAGS  (0  THRU  G)  F  CR  ACOITIVE 

CEHVLS 

10 

12‘ 

c 

CERS  OR  SUBE  LEMENTS.  0  INCICATES  NO  AOCING. 

CERVLS 

19 

c 

1  THRU  6  I .01  CATE  ADO  UP  SUBELtNENTS. 

CLSVLS 

2J 

c 

(ISO  WOROS) 

CcnVLS 

21 

c 

ICERNC 

• 

REFERENCE  NUMBER  FOR  CER  EQUATICKS  IN  THE 

CERVLS 

22 

c 

•CERCOhP'  SUBROUTINE.  (ISO  NORCS  1 

CERVLS 

23 

1  <«c 

c 

IXREFRO 

- 

CBS  ELEMENT  NUMBER  USED  IN  CROSS  REFERENCING 

CERVLS 

24 

c 

A  PNC  VIO  USL  T  COMPUTED  CBS  ELEMtM.  AT  PRESENT 

CERVLS 

25 

c 

CNLV  CER  EQUATION  NUMBER  «  ALL  CNS  CRCSS 

CERVLS 

26 

c 

REFERENCING.  0  INDICATES  NO  CROSS-REF. 

CERVLS 

27 

c 

(ISO  HOPCSt 

CERVLS 

26 

l» 

c 

IXR  EF  AO 

• 

LER  CONTROL  FLAGS  FOR  CROSS-REFERENCING 

CERVLS 

29 

c 

CER  SUB-ELEMENTS.  (ISO  ROROSI 

CL l  VLS 

In 

c 

IFSTORE 

- 

STORES  'FACT  OR  *  PARA.FTEKS.  (Bull  NORCS) 

CEhVLS 

21 

c 

PSSTClP ( 

- 

STORES  NUMERICAL  PARAMETERS.  (SCO  WCROSI 

CERVLS 

32 

c 

ICEBI  1 

- 

A  SINGtY-SUBSCRlPTEO  ARRAY  CONTAINING  A 

CEHVLS 

23 

IEC 

c 

MAXIMUM  LF  ICO  IUTA  TRIPLETS  MHOS  E  MfcHBEhS 

CERVLS 

24 

c 

ARE  1 

CERVLS 

25 

c 

ICfMl.k,/, 

- 

cQUlPHLNT  NAME 

CERVLS 

26 

c 

ETC) 

CEHVLS 

27 

c 

ICEM2,4,b 

• 

INDEX  FOP  MASS  STORAGE  LN IT  d.  INOEX 

CtR  VLS 

20 

1  s5 

c 

ETC) 

BEGINS  AT  1  ANO  INCREMENTS  BY  9  (1.10.19. 

CERVLS 

39 

c 

tTCI.  TME  FOLLOMING  DATA  RECOROS  ARE 

Ct  h  VLS 

c 

INOEXEOI 

CEhVLS 

41 

c 

1  CEKCT  6  rxFEFNO 

CtFVLS 

42 

c 

2  IFOkC  7  IXREFAO 

CtFVLS 

43 

1*1 

c 

3  IRONIC  6  IFSTCKE 

CEHVLS 

44 

c 

c  I  AOO  9  FESTCFE 

CERVLS 

45 

c 

5  1CEHNC 

CEhVLS 

4b 

c 

ICE  P  U,t>H 

- 

INDEX  FOP  HASS  STORAGE  UNIT  2  ANO  I. 

CEHVLS 

47 

r 

IN  JF  X  BEGINS  AT  10  A«G  INCRE  MF  NTS  BY  2 

CC  H  VLS 

40 

165 

c 

(10.20. 22, E.TC1  ANO  IS  IDENTICAL  TC  TF£ 

Cth VLS 

4* 

c 

THJ*D  MEMBER  OF  OATA  TRIPLET  STORED  IN 

CERVLS 

50 

c 

Tht  IRtC  ARRAY. 

CERVLS 

51 

c 

SUB  EL  S  (  ,  ) 

- 

SUOELS  IS  A  CROSS-HA TCNcO  ARRAY  NMICH  IS 

CEHVLS 

52 

c 

NECATEO  CNt-TO-ONt  10  TME  CBS. 

Ct  k  VLS 

53 

IK 

c 

IT  IS  UStO  ICCAUT  NITNIN  '  COMPCMF '  ANO 

CEhVLS 

54 

c 

•CtRCOMF  •  FOF  INTERIM  SIGNAGE  CF  UP  TO 

CL  k  VLS 

55 

A-75 


-L6k  JIT  iNfc  COHPCMP 
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OFT  •£ 


FT N  4«6  +  **33 
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C 

SIX  SUb ELEMENTS,  1  THR  UFU  T «  AH  C  1  TOTAL 

ClKVLS 

Ed 

c 

VALUE  FO*(  EACH  CSS  ELEMENT. 

CEaVLI 

57 

c 

FAC  TOM  »  -  A  FACTOR  IS  A  PRECURSOR  OF  CHE  CH  MORE 

CE*VL$ 

5o 

175 

c 

CARS* 

CLhVLS 

59 

c 

CEKVLS 

ta 

c 

CEKVLS 

El 

COMMON  /CEkVLS/  CENLT,  IFOKCU50),  IK  OH  10  1 150  )  ,  IAQGUSOI, 

CE«VLS 

62 

C  ICtRNOUSO  >  .  IXREFNUI15U  , I XR E FA C  1 1531 . 

CEKVLS 

63 

If  b 

2  IFSTCRE 16 .1501 , RESTORE (6,15J).ICEN(3uOI, 

CEKVLS 

64 

C  SuetLS 18,1511  *  FACTORS (1501 

CEFVLS 

L5 

INTEGER  CE  ACT 

CEKVLS 

66 

c 

CEKVLS 

67 

c 

... 

CEKVLS 

66 

IW 

c 

CEKVLS 

69 

c 

CC7FCNF 

14 

OIMEKSICN  ROM <150  8 

CCKFCMF 

15 

c 

CONFCNP 

16 

EQUIVALENCE  1  ROM,  AMAY 11,  11  ) 

cckfckf 

17 

19C 

c 

CONFCHP 

10 

INTECEK  QCUAN , CL nCTXb 

CCCFCKF 

19 

OATA  I1RRIH  /  3m552j2211150QQ006036  / 

CCFFCHf 

20 

DATA  IlNAVY  /  3  *«$  5 16  0126  3  TOOOVbuOOB  / 

CC7FCEF 

21 

OATA  IlMAHM  /  3<,55150US16800  000«OB  / 

CC7FCMP 

22 

195 

OATA  I  ICANN  /  JN5buJO11616QQO(jO803B  / 

CCFFCMF 

23 

DATA  I1MLCH  /  3b 55151*031 QOOQOCQ0Q8  / 

CCFPCrF 

24 

OATA  IIGAMM  /  3555 078 1151 500 00 00 0QB  / 

COrFCKP 

25 

oata  iefcs  /  mssoBilzsBsaaocoooae  / 

CC7FCMF 

26 

22  72 

FORMAT  UM-O*  /**M  ••  ,A1S,»  CEKCT  *  *,15,  •  »•  .021  .5  X,  I6/NH  ••  ) 

CONFCKP 

27 

c 

CCKFCKF 

20 

c 

READ  TNNUPUTS  A|,0  INPUTS 

COrFCMF 

29 

c 

CC7FCKF 

23 

CALL  RtAOMS  (  3,  ROM,  NMBS  »  NCXHS  ) 

CCrFCMF 

31 

CALL  REAOMS  1  3,  AN AY  11,2) ,  LENR,  NO  «MS»1  I 

CC7FCNF 

22 

2  5 

c 

CCrfCNF 

23 

c 

initialize  thc  common  "subels"  i  "factors'  arrays  to  all  zeroes; 

COrFCrF 

34 

c 

PUT 

TPUTS  IN  "SUBELS 17, XI “  ANO  "SU EEL S ( 8 , X » “  FOR  TINE'PHASINC. 

CCFFCFf 

25 

c 

CCFFCPF 

36 

00  2  I /«  1,150 

CCFFCNf 

37 

2  U 

FACTORS!  12  J  •  3. 

CO-FCHF 

25 

00  1  11*1, A 

CCrFCPF 

19 

SU0EIS  U  1, 121  »  J. 

ccr-FCNf 

*•0 

1 

CONTINUE 

CCPRCPF 

*.1 

2 

CONT INLi 

CCf  FCPf 

42 

215 

00  N  I ’*1,  NMBS 

COPKCHF 

43 

SU8eLS(7,IJ)  «  KOW(IJ) 

CCFFCMF 

44 

Suit  IS  (A, 131  S  f CH (13) 

CCFFCPF 

45 

w 

CONT 1NLE 

CCrFCKF 

46 

c 

CCKFCPP 

47 

22l 

c 

Rt  AO  IN  CER  OATA 

CCFFCNF 

4e 

CALL  R6ACHS  <  6.  CtRCT »  1,  NOXCER  1 

COPPCtf 

49 

IF  (Cf FCT.GT.J)  GO  TO  5 

CCFFCPF 

5i 

GO  TO  10 

COFFCNF 

51 

5 

CERCTXE  •  CEKCT  •  6 

CCFKNF 

52 

2?5 

CALL  REAOMS  16,  1FURC  ,  CtPCT  ,  NOXCFRMI 

CCPFCNF 

53 

CALL  REAOMS  t«,  IMUMIO  ■  CERCT  ,  NO  >CFRt  2) 

CCFFChF 

54 

CALL  ReACftS  U •  XADO  .  CERCT  ,  NOXCERO) 

CCFFCHF 

55 

CALL  REAOMS  <8,  IClNNC  ,  CCPCT  ,  NOXCt’RKRT 

COKRCKF 

5b 

A-76 


iUI-FOUTlNE  1 

COFFCMf  74//4  GIT«2 

FTM  4. 6**44 

-7/M/7S 

2J.S3.4l 

CALL  PcAONs  (a.  IXAcFNC,  C  t  RCT  .  NOXC'.nfS) 

CCrPCNF 

67 

2  5r 

CALL  RFAQML  <6  .  IXFtFAu,  CtMCT  t  NDXC-F»E> 

CCFPCHF 

it 

CALL  A  t  ASMS  In,  IFSTOKc.  CtRCTxt,  NOxCTF*?) 

CCFf CNF 

CALL  FtAOHS  («,  PSST04C,  CtPCTXb,  NUXCcF.SI 

CLPFCHF 

€0 

C 

TEST  FOk  SPECIAL  CuMP'S,  l  FR1ML  AND  t 

NAVY 

CCFFCHF 

El 

c 

CCKFCNf 

62 

2  35 

IF  IEQUI.EC.il  FNIO  GC  TO  Ml 

CCFFCNP 

61 

IF  IFQUl  «cQ*HMVY )  GO  TO  5C 

COFPCNP 

64 

GO  TC  CO 

CCf FCFf 

65 

c 

CCPPCHP 

6b 

c 

CCFPCFF 

67 

2  **c 

c 

DEFINE  AC.G-lcl.Alt  Mb  S  COSTS  OF  1  FKIFE. 

*OS  tL(  HENTS 

CCrFCFF 

60 

c 

FOP  l  FF  Inc  ARt  LAStD  ON  PLACENTAGlS  OF  ALL  FnEVIOUS 

COFFCPF 

69 

c 

H0S  CQPPCNtNT  d LChtNTS  AT  A  PAHTICULAk 

kes  LEVEL* 

CCFFLKP 

70 

4.  "OWIllI  a  .„69*«0T0T  ♦  2. 

CCFPCPP 

71 

*OUU2>  3  « 13  6*RGTUT 

CLFFCPF 

72 

2«*5 

SOW ( 14  I  *  •  1G  9  *KO  TO  T 

CCFFLFF 

73 

40*1161  *  •  j  c  3*  r\D  I  GT  ♦  1.21 

CCFFLHF 

74 

ROM<2Ql  *  •  Ot  2MTOTINV  -TOTRIP) 

CCPFCKF 

75 

2226  FORMAT  (1M3,  »TOTINV  *  •  ,  FlO  .  2 . 5  X,  M  OTkI  F  •  •,F1Q.  2,511, 

COFPCNF 

7b 

1  *ROM  A 2 C‘  1  *  *,  F  1G  .  2  1 

CCPFCHF 

77 

ZOk 

MRITlIt. 22261  TGTII.V.  TOTRIP, RON  (20) 

CO  7  Ft  PF 

76 

GO  TO  GO 

CCFFCKP 

T9 

C 

COFPCFP 

tu 

C 

OEFINE  AGGREGATE  MdS  COSTS  OF  1  NAVY • 

MBS  ELENENTS 

CCTFCHF 

61 

C 

FOP  1  NAVY  Ah£  UASEO  ON  PERCENTAGES  OF 

ALL  FPEVIOUS 

CCFFCHP 

(2 

2  a* 

C 

MBS  COCPCNENT  tLtNtNVS  AT  A  PARTICULAR 

MBS  LEVEE. 

CCFFCnF 

ei 

5U  FOVII1I  *  •  142*  (NUTOT  ♦  SNlSPCI 

CCFPCNF 

(4 

ROM  (14)  •  .Q71MROTOT  ♦  SNISRD) 

CUPFCKf 

05 

ROM (201  *  .IMTOTIKV  -  TOTRIF) 

COFFCMP 

0b 

60  CONTINUE 

COPFCMP 

67 

sea 

C 

CCPFCrF 

66 

C 

EVALUATE  THE  RCM  ElEHLNTS 

IN  THE  CtRCNP  ROLTINE 

COPPCMP 

89 

c 

CCPFCNF 

«ii 

c 

CCFFCHF 

51 

call  CtkCHf  (li,kO*,<JQUAN,  021 

CCMPCHP 

52 

2t  r 

c 

CC7FCFF 

<3 

c 

ccffcnf 

54 

CALL  FILLUP  (*OW) 

CCFfCHF 

55 

c 

CCFPCNf 

56 

c 

CCFFCHP 

ST 

2  7C 

IF  UOUI.6Q.  IIPANM  GO  TO  30) 

CCf PCHF 

50 

IF  (EQUl  .cQ.LlCANN »  GO  TO  430 

COFFCNP 

99 

IF  (EQLI.EQ.UPtCHI  GO  TO  30Q 

CCFFCFF 

1£0 

IF  IE0UI.EQ.I2GAHH)  GO  TO  300 

COTFCHf 

L01 

IF  U0L1.EC.16FCS)  GO  TO  380 

CCFFCNF 

1C2 

2  )F 

POT  0  T  ■  ROTOT  ♦  R0W<1> 

CCfFCPP 

1  C3 

GO  TC  40) 

CCFFCFF 

1C4 

300  SNISRO  «  SNISPO  ♦  kOWCll 

CCFFCrF 

luS 

400  TOT  IF  V  *  TOTINV  ♦  »TOW<l6l 

CCFFCNP 

10b 

TOTRIP  ■  TOTrflf  *  *GW<3b) 

CCFFCFF 

107 

291 

22  2*  FORMAT  (1HO.»TOTINV  *  ♦,  FlO . 2, S X, »T0TN IP  *  •.F10.2.5X, 

COffPCPP 

1  J0 

l’POTCT  *  • . F 1 8 .2  »  5  X . • S M I SR  0  »  • . F 1 0 . 

2) 

ccffcff 

1C9 

c 

MPITE IE, 2225)  TOT INV, TOTRIP.HOTQT , SN ISkC 

CCrFCNF 

110 

10  CONTINUE 

COrFCHF 

111 

IF(CEPCT.tO.O)  (ALL  HCLLL'P  (SOM  I 

CCFFCPF 

1)2 

2  it 

c 

CtrFCNP 

113 

A-77 


jLftoUTINi;  COHPCHP  J<./7L  0PT*2 


FTN  4.6*433  C7 /JI/7  S  23.EJ.41 


200 


296 


3 


2  -5 


310 


315 


32C 


325 


J3t 


c  list  the  -EuatLS"  array  top  prqgrah  proving 
c 

IF (CHR TCNT (6) . Nt . u  I  GO  TO  30 
CALL  HI  AO 

WRITE  (6.1111)  II  AML  SC  (19. LI  »NAHt  SC  (19. 21*  IM*M*L.e) 
nil  FORMAT  (*0AFTER  "ClRCMP”  AND  EtFORE  “TYHFA7"  LIST  THE  “SU8ELS“*. 
C  •  «R»AY  F  fi  CM  "COHPCHP"  FOR  CCHPONENT  •  » A  7  .  •  *.A7  / 

C  •OWBS  *,at3X, •SUBELEMENT*, 12)  / 

C  «  LLLMFNT*,93X,»TPUT  VALUE*, 4X, ‘TOTAL  VALUF •  /  1X1 

00  11  J*i,NMbS 

WRITE  (6.1112)  J,ISUb£LSIK,J),K*l,U) 

11  CONTINLE 

1112  FORMAT  (  2X.I3,  3x,  #  (3X.F1J.  5,2X1) 

C 

C  THE  FIRST  HALF  OF  "NOW"  ARRAY  NOW  CONTAINS  AGGREGATE  CCKFCNInT  COSTS 
C  TIHE-PHASE  APPkOPNIATE  WOS  ELEMENTS,  SUB-ELEMENTS  AN t  TPL1S  MERE. 

C 

33  CONTINLE 
C 

C  PitOCUCE  THE  UNIT  COSTS  PER  EOUIPMENT 

C 

01  *  OCUAN 
IPML  *  IHH(NFH) 

NHBSH1  a  KwaS  -  1 
00  20  1*1 .N  MBS  Ml 
IF  (EPF. £0.2)  GO  TO  IS 
IF  II.IT.1FHL)  GO  TO  15 

iFiai.EQ.a.i  go  ra  12 

ROW  (  II  *  R0H(I>/01 
GO  TO  20 

12  CONTINLE 
ROW (II  a  a. 

GO  TO  20 

15  CONTINLE 

IF  (02.  IE.G. I  GU  Tu  17 
ROW ( II  a  POW(I )/Q2 
GO  TO  2 G 
17  CONTINLE 
POW(II  a  3. 

21  CONTINU 
C* 

C*  TOTAL  LMT  COST  FOR  T ML  COMPONENT 
C 

C*  WFIlt  UNIT  COST  TOTALS  BACK  TO  MASS  STORAGE 

C*  Ik  THc  SAME  POSITIONS  WHENCt  CAME  TMt  ”TPUT"  VALUES 

r 

CALL  WHITHS  I  I,  ROW.  NW8S.  NOXHS  ) 

RETURN 

ENO 


cchfchp 

114 

COrPCHP 

11$ 

CCMFCNP 

116 

COHPCHP 

117 

CCHFCHP 

110 

COHPCHP 

119 

CCHFLHF 

120 

CChRCHF 

121 

CCHFCHF 

122 

CCHFCMP 

123 

CCHPCMF 

124 

COhhchF 

1 25 

CCHFLHF 

12b 

CCHFCHF 

127 

CCrFCHF 

126 

CCHFCHF 

129 

CCHFCHF 

120 

CCHFCHF 

131 

CCHFCHP 

1 12 

CCHFCHF 

123 

CCHFCHF 

124 

CCHFCHF 

125 

CCHFCHF 

126 

CCHFCHF 

127 

COrFCMF 

126 

CCHFCHF 

129 

CCHFCHF 

140 

CCHFCHF 

141 

CCHFCHF 

142 

COHFCHF 

143 

COHFCHF 

144 

cohfchp 

145 

CCHFCHF 

146 

COHFLHP 

147 

CCHPCMF 

146 

CCHPCMF 

149 

CCHFCHF 

1*0 

CCHFCHF 

111 

CCHFCHF 

1*2 

CCHFCHF 

1*3 

CCHFCHF 

154 

COHFCHF 

its 

CCHFCHF 

l!b 

CCHFCHF 

1*7 

CCHFCHF 

1*0 

CCHFCHF 

1*9 

CCHPCMF 

UQ 

CCHFCHF 

1U 

CCHFCHF 

1(2 
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23.  63 

SUBROUTINE  CtRCMP 

<I9»F0W,  QQUAh,  Q2) 

CEnCMF 

2 

CEFCMF 

3 

this  ruutine  OlCooes  tHt  proper  c Er»  equation  numbir, 

ce*cmf 

4 

COMPUTE*:  THE 

P  ON  ELuilNT  USING  TH*  PROPER  PARAMETERS 

CEFCmF 

5 

AKO 

A  XFk  F  NUMBCk  IF  NktOfcO. 

CEFCMP 

b 

fU' 

fkOUriNt 

WILL  ALSt  SUM  THt  CEP'S  WHtN  THE  PROPER 

CESCMP 

7 

CrMKQL  IS  SET, 

CERCPF 

6 

1  A  00 

*  U  NO  SUHHATICM 

CE  F(  MP 

9 

=  1  INITIALIZE  LOCATION  F  CF  SUMMATION 

CEFCMF 

III 

=  2  AOD  NtH  CtR  EVALUATION  TO  RHATSVtR  IS  IN  THE  NOW 

CtwCMF 

11 

ID 

CEFCMP 

12 

CtnCMF 

13 

SYST 

2 

SYST 

3 

SYST 

4 

NHStS 

- 

NAME  OF  THE  SYSTEM 

SYST 

5 

NOS  LB 

• 

10TAL  NUMBER  OF  SMIFCLASSES  CONSIDERED 

SYST 

6 

nmsub  (  , 

> 

NAME  OF  THE  SHIPCLASS  IN  TWC  WORCS 

SYST 

7 

NOCCHf < 

1 

INOEX  NUMBER  FOR  ECUIPMENTS  (COMPONENTS! 

SYST 

6 

(RUNNING  TOTAL  FOR  ECUIPHENTSI 

S  YST 

9 

NhCCMf ( 

.  .  •  - 

NAMES  OF  EQUIPMENT  (2  WCFCSI  FOR  TITLES 

SYST 

10 

IN  HBSOUT  (INOEXtD  BY  CCUlPMtNT  NUMBER 

SYST 

11 

ANO  SHIPCLASS  NCMBERI 

SYST 

12 

NAMkSC 1 

.  i 

NAMES  OF  EQUIPMENT  12  WORDS,  T  CI-ARS  EACH  I 

STST 

13 

FUR  EQUIFMtNT  QUANTITIES  TABLE  -  FLEET 

SYST 

14 

SUMMARY 

SYST 

15 

foul 

- 

PRESENT  C.QUI FMLN T  (BEING  PROCESSED » 

SYST 

16 

SHlFNP 

- 

PRESENT  SNIFCLASS  (Bt ING  PKOCESStCI 

S  1ST 

i? 

SYST 

16 

SYST 

19 

CONNCN  / 

NAMES  / 

NMSVS  *  NOS  LB  ,  NMSUB  (2,431  ,  NCC0MPU31, 

SYST 

1 0 

1 

NHCOHP { 2» 

laa.RJt , NAME  SC ( 100, 2) , ECU  2, SHIP  KM 

SYST 

21 

INTEGEF  EQU I ,S  HI FNN 

SYST 

22 

•••MI  SC  1 

SYS  1 

23 

SYST 

2«. 

NAP 

- 

COUNT  OF  DIFftKENT  AFFRCPRI ATI CK  CODES 

SYST 

25 

APPRO (  > 

- 

APPROPRIATE  CODE  NAMES 

SYST 

2b 

SPCL I  , 

» 

PERCENTAGES  FOR  CBS  c  LE  Ft  NT  COST  SFLITS 

SYST 

27 

NPH 

- 

COUNT  CF  THE  LIFE  CYCLE  PHAStS 

SYST 

26 

IrM  (  > 

- 

FIRST  CBS  ELEMENT  NUM6C*  OF  t.ACH  PPASL 

srsr 

<9 

IPS  (  1 

- 

CBS  CLEMENT  NUMBER  FUR  FAGE  BREAKS 

SYST 

30 

(LAST  CBS  NUMBER  FOR  THE  PAGE! 

SYST 

31 

IPMASE ( 

.  I 

UTLLS  OF  CBS  PHASES 

SYST 

22 

FLEET? 

• 

fleet  (Ststemi  size 

SYS  1 

23 

NFOLLC  1 

• 

LOWEST  CCST  ELEMENT  LEVEL  TC  PE  PRINTED 

SYST 

’4 

(LOWEST  LEVEL  TO  Bk  kOLLEO  UP  WITHIN  PHASE) 

SYST 

35 

ROTCT 

- 

TOTAL  ROT it  COST 

SYST 

2b 

TO  T  IN  V 

- 

TOIAL  INVESTMENT  COST  MINUS  TOTAL  RIFOUT 

SYST 

27 

TOTKIF 

• 

TOTAL  RIfOUT  COST 

SYST 

3b 

SNISRC 

- 

Missut  font  ccst 

SYST 

39 

NOFLY 

- 

NUMBER  of  CBS  elements  to  be  inclccec  in 

SYST 

40 

flyaway  costs 

SYST 

41 

IFLYPCm 

) 

CBS  CLEMkNT  NUMBER  FOR  FLYAWAY  COSTS 

SYST 

42 

NOYAS 

- 

NUMBER  OF  YEARS  IN  SHIP  INSTALLATION  TABLE 

SYST 

43 

IYEAP  S 

- 

YEARS  COVEREC  BY  THE  SHIP  INSTALLATION  TABLE 

iTST 

44 

IYkS 

- 

HUMBER  OF  YEARS  In  ship  installation  table 

SYST 

45 

PLUS  ONE  (COLUMNS  FOR  PRINTING  SHIF/INSI  TABLE) 

SYST 

4b 
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C 

fnote  s  < 

»  |  -  FOOTNOTES  FOR  FlkST  TNG  MAJOR  OLTPUT  CHARTS 

SYST 

<,7 

C 

SYST 

4b 

f  c 

COHHCN  / 

HI  SC  /  NAP,APPR0<7  >,  SFCL  (3,  £.2)  ,  RPP.  IPHH.I  ,IFe(  i>  , 

SYST 

49 

l 

IPHfcSt  12  ,<.)  ,FLEtTZ,NRCLL  (LI  ,  R  0T0  T ,  TO  T IN  V  .TOTRIP, 

SYST 

5C 

2 

SMISRO.NOFlY.IFLYI  OH  1 25) .NOYRS.I YEARS (1 2) , IYRS, 

SYS  7 

51 

3 

FNOIc  £15  ,  12) 

SYST 

52 

INTEGL*  AFFRG »  SFCL»FLc5T? 

SYST 

53 

05 

C 

SYST 

54 

C 

NSZ 

2 

C 

MS2 

3 

c 

MS2 

4 

c 

MS2 

5 

7  u 

c 

LENN 

-  MASS  STOkAGfc  UNITS  COHMCN  RECOkC  LENGTH 

MS  2 

b 

c 

(TYPICALLY  ISO) 

MS  2 

7 

c 

NWtfS 

-  NUMBtR  OF  ELEMENTS  IN  T  Ft'  CBS  (MAX  150) 

MS2 

6 

XCC1R 

-  number  of  eclipments  in  the  equipment 

MS  2 

9 

c 

lLEMENTS  table 

MS? 

10 

75 

c 

L  150 

-  U5J  NOKLS)  RECORD  LENGTH  OF  7  ARRAYS 

PS  2 

11 

c 

114  THF  -CERViS-  COMMON 

PS2 

12 

c 

19  0  Q 

-  (900  WOPOS)  RECORD  LENGTH  OF  2  ARRAYS 

PS2 

13 

c 

IN  THE  "CERVLS"  COHHCN 

rS2 

14 

c 

MS  2 

15 

dC 

COHMCN  / 

MS2  /  LENR,NH&S,ICCTR,L15Q«L1S0 

MSi 

16 

c 

MS2 

17 

c 

MS2 

16 

c 

MS  2 

19 

c 

CERVLS 

2 

F5 

c 

CfcRVLS 

3 

c 

ICOST  ESTIMATING  RELATIONSHIP  (CER)  VALUES)  COHHON  ••••• 

•  cervls 

4 

c 

CERVLS 

5 

c 

THE  CERVLS  COMMON  CONTAINS  LOCATICNS  FOR  STORAGE  CF  THE  CER 

CERVLS 

b 

c 

INPUT  CARO  COUNT,  THE  RON  ID'S,  rHE  CER  EQUATION  NUMBERS,  THE 

CERVLS 

7 

90 

c 

ROM  CROSS  REFERENCE  NUMBERS,  THE  INPUT  PARAMETERS,  THE  AOOITION 

CERVLS 

8 

c 

OB  CERS  CONTROL,  STORAGE  ARRAY  FOR  EQUIPMENT  NAME,  CER  INDEX, 

CERVLS 

9 

c 

ANO  tPUT/NFUT  INCEXES  FOR  ALL  EQUFMENT  INFUT. 

cervls 

10 

c 

CERVLS 

11 

c 

CfcRCT 

-  NUMBER  OF  C£  F  *S  FOR  THIS  PARTICULAR  EQUIPMENT 

CERVLS 

12 

45 

c 

(1  MONO) 

CERVLS 

13 

c 

IFORC  (  1 

1  -  (F  OR  C)  ALPHABETIC  CHARACTER  Z  NC 1C AT  I  KG 

CEi*VLS 

14 

c 

'FACTOR*  OR  'CER*.  1150  WCROS) 

CERVLS 

15 

c 

IfiOwIC 

-  CBS  ELEMENT  NUNeEF  TO  HFICH  THIS  CER  AFPLltS 

CERVLS 

lb 

c 

(150  HOfcCS) 

CERVLS 

17 

1  'C 

c 

IA0C 

-  CfR  CONTROL  FLAGS  (0  THRU  61  FCR  AOOITIVl 

CERVLS 

18 

c 

CERS  OK  SUBtLtHENTS.  0  INDICATES  NO  AOOlNG. 

CERVLS 

19 

c 

1  THKU  6  INDICATE  AOU  UF  SUBcLEMENTS. 

CEKVLS 

<J 

c 

(150  WURCS) 

CERVLS 

cl 

c 

ICCibV. 

-  REFtP.fcNCk  NUMBER  FOR  Ct  R  EQUATIONS  IN  THE 

CEnVLS 

22 

lr-5 

c 

* CiRCOMP  •  SUBROUTINE •  (150  HOkCS) 

CERVLS 

23 

c 

IXR£F NG 

-  CBS  lLEHENT  NUMBER  USEO  IN  CROSS  REFERENCING 

CERVLS 

24 

c 

A  PREVIOUSLY  COMPUTEO  CBS  clEMCRT.  AT  PRESENT 

CENVLS 

25 

c 

ONLY  CER  EQUATION  NUMBER  e  ALLOWS  CROSS 

CEfiVlS 

26 

c 

RtFERCRCINU.  Q  IRCICATES  60  CROSS-RtF, 

CEPVLS 

27 

11C 

c 

( 15 0  WOKCS) 

CERVLS 

28 

c 

IXREf AO 

-  CER  CONTROL  flags  FCR  CROSS-REFERENCING 

CERVLS 

<9 

c 

CER  SUB-ElEhENT  S.  (15b  WORDS) 

CERVLS 

30 

c 

IFSTORE 

-  STOKES  *FACTCR*  PARAMTEKS.  1903  WORCS) 

CERVLS 

31 

c 

PESTORE 

-  STOKES  NUMBER ICAL  PARAMETERS.  ( 9  J  J  WQkOS) 

CERVLS 

32 

rJ 
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OLTINE  CtPCMP  .'4/7..  0H«J  FTN  5.fc«t3i 

1.7  /31  /7<j 

23,53, 

1  15 

c 

ICERI  1  -  A  SINGLY-SU0SCUPTED  AkKAY  CONTAINING  A 

Ct 4  VL  S 

23 

c 

MAXIMUM  CP  luG  CATA  TRIPLETS  WHOSE  KtM  BERS 

Ccn VLS 

34 

c 

AKu  1 

CCSVLS 

25 

c 

ICEKl.4,7,  -  LOUI  FMtN  7  NAME 

CEh  VLS 

26 

c 

cTC) 

CERVLS 

27 

l?l 

c 

ICEh(2.4i0  -  INDEX  FOR  MASS  STORAGE  LllIT  9.  INDEX 

Cfch VLS 

26 

c 

ETC!  BEGINS  AT  1  AND  INCREMENTS  87  9  U.1S.L9, 

CthVLS 

2* 

c 

tTCI.  THE  FOLLOWING  DATA  RECOKOS  ARE 

cervls 

40 

c 

injexeoi 

CtnVt S 

41 

c 

l  CtRCT  6  IXfcEFUO 

CERVLS 

42 

1  25 

c 

2  X  FOIvC  7  IXfttFAO 

CERVLS 

h3 

c 

3  IRONIC  6  IFSTC4F 

CERVLS 

44 

c 

<,  IAOO  9  FSSTCkf 

CfcxVLS 

45 

c 

5  ICEfiNC 

CEhVLS 

46 

c 

ICERI3.6.9  -  INDEX  FOR  MASS  STORAGE  UNIT  2  AND  J. 

Ct h  VLS 

47 

1  H 

c 

INDEX  BEGINS  AT  18  AND  INCREMENTS  8Y  2 

CEhVLS 

46 

c 

118. 20. 2  2. ETC!  ANO  IS  IDENTICAL  TO  THE 

CEhvLS 

49 

c 

THIRD  mE M0t R  OF  OATA  TRIPLET  STORED  IN 

CERVLS 

50 

c 

THt  IREC  ARRAY, 

cervls 

51 

c 

SD8ELS (  ,  I  -  SU9ELS  IS  A  CROSS- LATCHED  ARRAY  WHICH  IS 

CEhVLS 

52 

l  25 

c 

RELATED  CNt-TO-CNt  TO  TEE  CBS. 

CERVLS 

E3 

c 

IT  IS  USED  LOCALLY  WITHIN  ■COMPCMP*  ANO 

CERVLS 

54 

c 

•CERCOMP'  FOR  INTERIM  STORAGE  CF  UP  TO 

CtRVLS 

55 

c 

SIX  SU8ELEHENTS,  1  TMLUFUT,  AN C  1  TC 1AL 

CERVLS 

56 

c 

VALUE  FOR  EACH  CBS  ELEHENI. 

CtRVLS 

57 

141 

c 

FACTOR!  1  -  A  FACTOR  IS  A  PRECURSOR  OF  CNF  CR  MCRC 

CERVLS 

58 

c 

CtRS. 

CERVLS 

59 

c 

CERVLS 

EG 

c 

CERVLS 

£1 

COHHCN  /CERVLS/  CERCT.  IfONCUSCl,  IKOWIOI150I.  IAQ0I1SGI, 

CtRVLS 

E2 

lv* 

C  ICLRNCI150).  IXREFNOdSO  1  .IXREFAO  1150, 

CERVLS 

£3 

2  IFSTQRE (6 .150  I .PSSTORE (6  .150 1 . ICER  13001  * 

CEhVLS 

64 

C  SUU£LS(»,i50) ,  FACTORS ( 1 5  01 

CERVLS 

€5 

INTEGEF  CERCT 

CE  £  VL  S 

£6 

c 

CEhVLS 

67 

is: 

c 

CERVLS 

66 

c 

CtRVLS 

69 

c 

CESCMP 

17 

0IM6KSI0S  ROM  Cl) 

CtPCMP 

16 

OIHENSICN  FIB!  ,P<6>) 

Ct  R  CMP 

19 

1*5 

INTEGER  qquan.f 

CCRCf'F 

c  u 

OATA  IIFF  /  IHF  /  ,  I  SEE  /  1MC  / 

CCRCMF 

21 

OATA  NCfckCW  /  2UJQ  / 

CEfiCMF 

22 

2222  FORMAT  /4H  •*  ,AU.‘  CE  RCT  *  • , 15 .  •  »•  ,021 .5X.I6/4H  ••  ) 

CtxCMF 

23 

c 

01  *  QOUAN  3  deployment  quantity 

CESCMF 

24 

l'Q 

01  *  QCU AN 

CthCMF 

25 

c 

ce-tcMF 

26 

c 

CtRCMP 

27 

c 

OO-LOOP  10.0  IS  MASTER  OO-LOUP  ANO  MAS  3  OISTJNCT  FUNCTIONS! 

CthCMF 

26 

c 

-  EARLY  COCc  (THROUGH  51  EVALUATES  LOCAL  VARIABLES  F P CM  MSS  VALLES 

C64CMF 

29 

1  £5 

c 

FOR  CtR  IDENTIFIERS  ANO  PARAMETERS  AND  FACTORS! 

CERCMF 

30 

c 

-  HIOCIE  COQE  (FROM  COMPUTtO  GO  TO  THROUGH  9901  SELECTS 

C£RCMP 

31 

c 

ANO  EVALUATES  A  “CLR"  OH  “FACTCK"! 

CcKCr.F 

12 

c 

-  FINAL  CuOt  (FAuN  99J  THROLGH  U001  POSITS  RESULTS  IN 

CthCMF 

23 

c 

“FACTORS"  ANO  “SUetLS"  ARRAYS. 

CERCMF 

34 

l7& 

c 

CEfiCMF 

35 

CALL  HEAC 

CEhCMP 

36 

A-81 


iUbf OUT  IN* 
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u7/3l/75 

23. 53. 41 

WRITfc  (6 ,  b )  NAMtSC4I9.l»*NAMESCII9f2».  (N.N=1,6), 

CthCPP 

27 

6 

FORMAT  <1M*,.,5X  DEVALUATION  OF  CCkS  ANO  FACTORS  FOP  •» 

CEkCHF 

3a 

C  A7.1X.A7  /  *\t  KOH  C  Ek  TSmF  *  .6  <3  X  ,  •  F*  ,  I  2 , 3  X  >  .  IX  , 

CEbf HF 

29 

175 

C  8(*  SL86L*, 11 >.2X, •FACTOR ♦> 

cercmf 

40 

DO  lOOi.  1=1. Ci  ACT 

CEhCHP 

41 

IFftC  =  IFORCm 

CERCHF 

42 

irow  *  irohiu ( i ) 

CERCHF 

43 

IP  A  0  3  IAOOm 

CCrtCHF 

44 

1  9P 

JCER  =  ICtFNC(I) 

CfcRCHF 

45 

IXRF  =  IXREFNU(I) 

CERCMF 

46 

IX  AO  =  1XREFAOU) 

CERCHP 

47 

CO  5  J=  1  ♦  6 

C  EhCPF 

68 

F(  J)  *  IFSTOPE (J,I) 

CERCHP 

49 

1-5 

P<  Jl  *  PSSTGkt  (J, I J 

CERCMF 

SO 

IF  <F C Jl  .EQ.IcFF )  P  1  J  1  =  FACTORS CIFIX<P<J  )) > 

CERCHP 

51 

5 

CONT IN  IE 

CERCHF 

52 

C 

CEhCM.P 

S3 

c 

SELECT  EQUATION  AND  EVALUATE  **CER~  OR  "FACTOR" 

CE  RCMF 

54 

I9t 

c 

CtFCHF 

55 

GO  TO  1  10,  20,  30,  tQ,  50,  60,  70,  80,  90,  IOC, 

CERCHP 

56 

C  11C,  120,  1 3u ,  140 ,  ISO,  160,  170,  183,  ISC,  2C0, 

CERCMF 

57 

C  210,220,2  33  ,240,25  0,260)  JCER 

cercmp 

58 

10 

TEMP  =  PCD  *  Q2**P(2I 

CERCMF 

59 

195 

GO  TC  690 

CERCMF 

Ed 

20 

TEHP  s  pen  *  Q2**P  121  /  PC3I««PU) 

CERCMF 

61 

GO  TO  59 J 

CERCMF 

€2 

3d 

TEHP  =  pen  ♦  Pe2)**P<3)  /  Pt<»)«*P(S> 

CERCM.P 

63 

GO  TO  593 

CERCHF 

64 

2-C 

4Q 

tehp  »  pen  •  eeQ2  ♦  pm>**pm  -  pe2>**p<3ii 

CERCHP 

65 

GO  TO  S90 

CE  R CMP 

66 

53 

tehp  *  pen  •  eeu2  ♦  M2M»»p<3>  -  p<2i*#Fmi  /  fi4>«*p<5> 

CEKCMF 

67 

GO  TO  690 

CERCHP 

68 

63 

temp  *  pen  •  c cm c 2 >  ♦  pe3i>**M4i  -  pc3i”Pt<»n  /  pcs* ••p (e » 

CERCmF 

69 

Z'\ 

GO  TO  59 J 

CERCHF 

70 

7C 

TEHP  «  Pill  •  Pt  2)  •  02 

CcRCMF 

71 

GO  TO  590 

CERCHP 

72 

ao 

CONTINLE 

CERCMF 

73 

IF  eiXAO.EQ.O)  IX  AO  =  8 

CLRCHP 

74 

l  u 

TEHp  a  pen  •  SUBELSdXAO,  1XRF  ) 

CEmCM.P 

75 

GO  TO  5  *J 

CERCHF 

76 

93 

TEHP  a  pen  •  *  Q2**P(5> 

CEmCMF 

77 

GO  TO  550 

CERCHF 

78 

103 

tfmp  a  pen  *  p«  e* ••pi  ji  •  Pe4»**Fe5» 

CE" C  MF 

79 

215 

GO  TO  59) 

CERCHP 

60 

110 

TEMP  3  Pin  •  F(2)«*P(3)  •  pe<,)  *  P C 5 1  •  Re6) 

CtRCMF 

61 

GO  TO  590 

CERCHP 

62 

120 

TEMP  a  Pill  ♦  P  <  2 )  ♦  P  f  31  •  P  14) 

CERCHF 

63 

GO  TO  69 J 

CERCMP 

64 

2  20 

130 

TEHP  a  pen  •  P  C  2  >  ♦  P  e  3)  /  P(4) 

CtRCMF 

<5 

GO  TO  69) 

CERCMF 

6b 

mo 

Tf hp  a  pen  •  pea)  •  p c 3i  •  peu)  •  p <5 >  •  ptb) 

CERCHF 

t7 

GO  TO  69t) 

CERCHF 

68 

153 

TEHP  a  pen  •  eF<2)»Pm*P(4>*P(SMPC6>l 

CERCHP 

69 

225 

GO  TO  590 

CtRCMF 

Sd 

163 

temp  a  p<n«p(2)  ♦  pe3)»pev)  ♦  p c s i •  p < ei 

CERCHF 

5l 

GO  TC  69  j 

CeRCHP 

52 

17) 

TEHP  a  (Pin  ♦  P(2)*P<3I)  •  Q2 

CERCHF 

53 
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SLEf  uLTIN* 

CLRCMP  74/74  OPT* 2  Fill  4. <*-.35 

07/31/79 

23,53 

GO  TO  99J 

CERCPF 

5h 

2  30 

16  0 

TEMP  *  IPI1I  ♦  P(2)*P<3)>  •  PC**) 

CERCPF 

55 

GO  TO  590 

CfcRCMF 

56 

151 

TEMP  =  CPC1I  ♦  PC2MPCJ))  *  PC4)  •  PIS)  •  P  <6 ) 

CShCPF 

57 

GO  TO  590 

CERCPF 

58 

29? 

TEMP  *  (Pill  ♦  P  (  2 )  *P  C  3 ) 1  ♦  PU)  ♦  P(5)**F<6> 

CERCMF 

59 

2  35 

GO  TO  59 J 

CERCMP 

ICO 

210 

TEMP  s  P(l)  ♦  P 1 2 )  •  P  ( 3 )  **  P(4>  •  P  1 5 )  ••  P  (6) 

CERCPF 

1C1 

GO  TO  *393 

CERCPF 

1  i!2 

220 

TEMP  =  Pill  /  (  P<2>  ♦  PC3  )  ♦  FC4)  ) 

Ct  F  CPF 

U3 

GO  TO  55 J 

CEhCKP 

ICE 

24C 

2  30 

TEMP  =  PCI)  ♦  P  t  2 )  ♦  P  (  3 )  ♦  P  C  4)  ♦  F  ( 5  )  ♦  P  (6  ) 

CERCPF 

1C5 

GO  TO  S9j 

CERCPF 

1C6 

24  J 

TEMP  *  PHI  *  Qi  ♦♦  P  (2) 

CERCMP 

107 

GO  TO  99 J 

CERCMF 

1 U8 

25  J 

TEMP  s  PCI)  *  m  C  2 )  ♦♦  P ( 3)  *  Q l  m  p<4> 

CERCMP 

lt.9 

2  **5 

GO  TO  5 9 ii 

CEFCrf 

llu 

260 

TEMP  s  PCI)  ♦  PC2)  •  PC3)  •  U1 

CEhCMF 

111 

990 

CONTlNlt 

CEhCPF 

112 

cc 

MYCCC  =  1HC 

CERCPF 

113 

cc 

WRITE  (6,951)  MT CCC . I FRC, I KOk , I R AO , JCE R, T EMP , 

CERCMF 

11** 

25l 

cc 

C  CP (N),N* 1,6)  , ($UEEL$ (M, IROW  > ,W= 1,8)  .FACTORS (IRGW) 

CERCMP 

115 

991 

FORMAT  (Al.Al, 13 ,  II ,  I  2 ,  IX  ,  f  8  f  3  .  IX  ,  6  ( 1 X  ,  IP  G6 . 2  ) , 

CERCMP 

116 

C  1X.0P, 8F7.1,1X,F7.  1) 

CERCPF 

117 

c 

CEfiCrP 

118 

c 

POSIT  PC  SUL  T  "TEMP"  IN  "FACTORS"  OP  “SUBELS"  ARRAY 

CtnCPF 

119 

255 

c 

CERCPF 

I2u 

IF  C  IFRC  .EQ.IStt )  GO  TO  992 

CERCMP 

121 

IF  <  IFRC.Ni .IEFF)  STOP  02 

CERCPF 

122 

FACTCRSC  IROW)  =  TEMP 

CtR  CMP 

123 

GO  TO  559 

CERCP.P 

124 

26u 

992 

IFCIFAC.EO.U)  GO  TO  996 

CERCMP 

125 

SUBELS (IRAO.IkCW)  =  TEMP 

CERCPf 

126 

956 

SU8E IS ( t , I "OH )  5  SUBtLSCd* IRON)  ♦  TEMP 

CERCPP 

127 

999 

CONTINUE 

CERCMP 

126 

MYCCC  =  1M0 

CEKCPF 

129 

2*5 

WRITE  (6,991)  MYCCC, IFRC.IkOW, IR AO , JCE R, T EMP , 

CERCMP 

130 

C  (P(N),N*1,6)  ,  (SU EELS (M,JkOW),P» 1,8) ,F ACTCRS ( IKO h > 

CEhCPF 

121 

10  9'! 

CONT IN  LE 

CERCMP 

122 

c 

CHRCMP 

123 

00  UQj  <*1 ,  CE  RCT 

CEhCMF 

124 

2  7u 

IF  C  IF  CRC  CK)  .Nfc.ISEt)  GO  TO  UuO 

CEFCMF 

125 

KK  s  IRCWID(K) 

CERCPF 

126 

ROW  IKK)  2  SUBELS i 9 , KK) 

cercmf 

127 

1109 

CONT IN l E 

CERCPF 

128 

RETURN 

CERCMP 

129 

275 

6N0 

CERCPF 

1RU 
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OP  \  =  l 
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SU69CUT In£  ROLLUP  (NOW) 


C 

C  THIS  ROUlINc  EXECUTES  THL  ROlL-UF  FWOC-CUPE  FO* 

C  AUTOMATICALLY  SUMMING  the  ROW  ENTRItS.  THIS  RCUTlNc. 

C  IS  CALltU  EaCh  TIME  T  HE  ROW  E  lE  KENTS  ARE  ALTEkEC. 

C 

C 

c  Mb  UtNGTM  ANO  COUNTER)  COMMON 

C 

C 

C  Lf  NR  -  MASS  STORAGE  UNITS  COHHCN  RfcCORC  LlNCTH 

C  (TYPICALLY  ISO) 

C  NWS S  -  NUMBER  OF  ELtHENTS  IN  THE  CBS  (KAX  1«U) 

C  ICCTR  -  NUMBER  OF  EQUIPMENTS  IN  THE  tQU IP  M  EN  1 

C  ELEMENTS  TABLE 

C  L IS 0  -  (150  WORDS)  RECORD  LtNGTH  OF  7  ARRAYS 

C  IN  THE  “CERVLS”  COMMON 

C  L9QQ  -  <9u0  WORCS)  iU CORD  LENGTH  OF  2  ARRAYS 

C  IN  THE  **C£RV L S"  COMMON 

C 


COMMON  /  MS 2  /  LENF ,NWbS,I CCTR .L15Q»L190 
C 
C 

c 


C  ARRAY  DEFINING  T He  ROLL-UP  INPUT  NUMBERS,  TOTAL  COLNT  OF 

C  COST  ELEMENTS  WITH  SPECIFIC  POLL-UF  NUMBERS  TO  BE  OUTPUT, 

C  ARRAY  OF  SEUCTeD  WBS  ELEMENTS  NUMBERS ,  SELECTED  RGLL-UF 

C  OUTPUT  FLAG 

COMMON  /  ROLUPCT  /  IROLL(150>,  KOLLTOT,  ROLLSL(l5u>,  ROLLFLG 

INTEGER  ROLLTOT,  ROLLSL,  KOLLFlG 
C 

C  ••»•»»»••»«««*•»«•••«•«  0UDG  COMMON 


C 

DIMENSION  TOT(lu) 

OIMENSICK  FOW(l) 

C 

C 

C  INITIALIZE  THE  SUMMATION  ARRAY  (TEMPORARY  STCkACF) 

C  TO  ZERO 

00  tG  1=1,10 
TOT  ( I )  =  J.O 
13  CONTINUE 
C 

C  SUBTRACT  OUT  THE  LOCATION  OF  THE  FINAL  TOTAL 

C  (IF  THE  TOTAL  LOCATION  IS  MOVEO  FROM  THE  NWBS  LOCATION 

C  TC  ANY  QTHtk  LOCATION,  THIS  LCGIC  WILL  HAVE  TO  AtTERECl 

N1  *  NWBS  -  1 

C 

20  CONTINUE 
C 

c  save  the  input  roll  nuheeps  ano  add  to  running  sum 

IR  «  IFCLL(Nl) 

TOT (  IR  I  =  TOT(Ift)  ♦  ROW (Nil 

c 

30  CONTINUE 
C 

C  DECREMeNT  Ml,  TEST  FOR  COMPLETION  AND  TEST  TO  SEE  IF 


kCL  LUP 

2 

ROLLUP 

3 

RCLLUP 

4 

ROLLUP 

5 

ROLLUP 

6 

ROLLUP 

7 

ms  2 

2 

MS2 

3 

MS2 

4 

MS  2 

5 

MS  C 

b 

MS  2 

7 

KS2 

0 

mS2 

9 

NS2 

10 

MS  2 

11 

NS  2 

12 

mS2 

13 

MS  2 

14 

MS  2 

15 

MS2 

16 

MS  2 

17 

MS2 

16 

MS2 

19 

WCLUFCT 

2 

RCLUPCT 

3 

NCLLPCT 

4 

RCtUPCT 

5 

RCLLFCT 

6 

ROL  IPCT 

7 

RCLLFCT 

6 

ROL  IPCT 

9 

RCLLFCT 

10 

RCLLUP 

10 

rollup 

11 

ROLLUP 

12 

ROLLUP 

13 

RCLILP 

14 

RClLUF 

15 

ROLLUP 

16 

ROLLUP 

17 

ROLLUP 

16 

RCILLF 

19 

RCLLUP 

2u 

NCLLLP 

21 

ROLLUP 

22 

RCLLUF 

23 

RCLLUP 

24 

RCLLUF 

25 

RCLLUP 

26 

RCLLUF 

27 

RCLLUP 

tb 

ROLLUP 

29 

RCLLUF 

30 

ROLLUP 

31 

RCLLUP 

32 

RCLLUP 

33 
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ROLLUP 

74/7**  OPT  =  2  FTN  4.t*433 

oT/U/79 

23.53 

C 

T  Ft  Ne  IS  A  ROLL  VALUE  PRESENT 

SCLLUP 

34 

N1 

*  N1  -  l 

n CLLUP 

35 

IP 

(  N1  •  £Q.  0  )  GC  TO  50 

ROLL  UP 

3b 

IF 

(  IROLUNl)  •  EQ.  J  )  GO  TO  10 

RClLUF 

37 

c 

ROLLUP 

!a 

r 

TEST  ROLL  VALUES  TO  GET  TO  Nt XT  STt  F  - 

R  CLLUP 

39 

c 

IF  PREVIOUS  IS  EQUAL  TO  PRESENT  OK  PREVIOUS  LESS  THAN  PRtSLNT  SCLLUP 

4m 

*r.  c 

SLM  IT 

K  Cl L  UP 

si 

IF 

C  UCLLUU+1)  -  IROLLCNU  )  2C  *  2-»  40 

RCLLLP 

42 

c 

rcllup 

43 

c 

RCLLLP 

44 

c 

if  P.stVIOUS  IS  GREATER  THAR  PRESENT  - 

R CLLUP 

45 

7  u  C 

PLACE  SUMMATION  IN  PWEScNT  ANO  IF  THE  ROLL  NUfl PER  IS  NOT 

KCLLUF 

4b 

c 

It  FORCE  THb  ROLL  SUM KAT ICN  LOCATION  SACK  TO  ZERO 

RCLLUP 

47 

40 

CONT JNLE 

RCcLLP 

46 

c 

RCLLUP 

49 

ROW  <  M  1  =  ROW (Nil  ♦  TOT ( IR  ) 

RCLLUP 

50 

75 

IF 

(  IR  .EQ.  1  1  GO  TO  20 

ROLLUP 

SI 

loniRi  =  ij.j 

RCLLUP 

52 

GO 

TO  20 

RCLLUP 

53 

c 

RCLLUP 

54 

c 

FINAL  TOTAL  SUMMATION  IN  H 8S  CALLEO  TOTAL 

RCLLUP 

55 

-c 

50 

CONTINUE 

RCLLUP 

5b 

ROW  (NH  ESI  =  TOT  Cl) 

rollup 

57 

c 

RCLLUP 

53 

RETURN 

RCLLUP 

59 

ENO 

RCLLUP 

to 

7  4/7., 
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1 

GUilROUllN-'  WB5 

TOT 

weSTOT 

2 

C 

W0STCT 

3 

C 

THIS 

ROUTINE  CCMPUTFS  THE  W6S  ELt  ME  NT  TOTAL  COSTS 

W9STCT 

4 

c 

FO*  KACH 

SHIP.  THESE  TOTALS  ARc  storec  on  mass  storage 

W0STOT 

5 

c 

c 

UNIT  10. 

THIS  ROUTINE  IS  ONLY  CALLED  WHEN  THE  WHS 

weSTCT 

6 

c 

OUTPUT  CHART  PER  SHIP  IS  NOT  GENERATED.  OTHERWISE 

WflSTOT 

7 

c 

THE  UNIT 

10  totals  are  generated  WHEN  the  mbs  OUTPUT 

WBSTCT 

8 

c 

Chart  p-k 

ship  ts  generated  in  the  kbsoijt  routine* 

WBSTCT 

9 

c 

#  *  * 

wesrcT 

10 

G 

2 

c 

cs  t  a  e 

J 

c 

OCMfT 

-  QUANTITY  OF  EQUIPMENT  ALRtAOY  DEPLOYED 

CSTAe 

4 

c 

(O  v  S  )  OVER  ALL  SHIPCLASSES  (Q 1 1  (INTEGER) 

cs  t  a  e 

5 

c 

QCMPT2 

-  QUANTITY  OF  EQUIPMENT  TO  HE  MANUFACTURER 

CSTAB 

6 

15 

»: 

INSTALLED  (INVESTMENT*  OVER  ALL  SHICLASSES 

CSTAB 

7 

c 

C  02 1  (REAL) 

CSTAB 

S 

c 

CS T  A  6Lc 

-  SINGLY-CIMENSIONPO  ARRAY  WHOSE  MEMBERS  ARE 

CSTAe 

9 

c 

A  St  R  IS  S  OF  1 

CSTAB 

10 

c 

--SHIPCLASS  NAPE 

CSTAB 

11 

ea 

c 

--0  i  S  OUANTITT  OF  EQUIPMENT  FOR  EAGh 

CSTAB 

12 

c 

SHIP  ON  A  PARTICULAR  SHIPCLASS 

CSTAB 

13 

c 

--INV  QUANTITY  OF  EQUIPMENT  FOR  EACH 

CSTA8 

14 

c 

SHIP  ON  A  PARTICULAR  SHIPCLASS 

CSTAB 

15 

c 

(THESE  THREE  MEMBERS  A»E  GIVEN  FOR  EACH 

CSTAB 

15 

25 

c 

SHIP  CLASS  MAKING  A  SERIFS  OF  OATA  TRIPLETSI 

CSTAe 

17 

c 

(VALUES  ARE  INTEGER) 

CSTAe 

16 

c 

CSTABEL 

-  SINGLT-CIMENSIONED  ARRAr  OF  THE  INVESTMENT 

CSTAB 

19 

c 

OUANT IT  V  OF  EQUIPMENT  FOR  EACH  SHIP  CN  A 

CSTAB 

20 

c 

PARTICULAR  SHIPCLASS.  OATA  ELEMENTS  MUST 

CSTAe 

21 

30 

c 

BE  STORED  IN  THE  SAME  SHIPCLASS  OROER  AS 

CSTAB 

22 

c 

CSXA9LE*  the  TWO  AflFAYS  MAT  BE  THOUGHT 

CSTAB 

23 

c 

OF  AS  A  SERIES  OF  OATA  QUADRUPLETS* 

CSTAB 

24 

c 

CSTAB 

25 

c 

CSTAB 

26 

35 

COMMON  /CST1B/GCMPT (108 1.CCMPT2  (  1 JC ) , C S 1  »BL E  (  3 75 01  .CST48EL  (125  0) 

CSTAB 

27 

INTEGER  QCPPT, 

CSTA0L- 

CSTAB 

2fl 

c 

#  *  • 

MARRA* 

2 

PA  KRAY 

3 

c 

HA  KRAY 

4 

■•a 

c 

MARRAY 

5 

c 

THe  IRfC  AR RAY 

IS  A  SIN GLY-S UNSCRIPTED  ARRAY  WHOSE  FIRST  POSITION 

MARRAY 

6 

c 

IS 

THE  TOTAL  NUMBER  OF  UNIQUE  SH IPC L A SS/ £ QU IPME NT  COMBINATIONS* 

MARRAY 

7 

c 

the 

next  three  positions  sta»t  a  series  of  triplets  whose 

MAKflAY 

5 

c 

MEMBERS  ARE  t  SHIPCLASS  NAM-’*  EQUIPMENT  NAME*  M$  3  INCEX. 

PARRAY 

9 

<•5 

c 

m  cm 

-  THE  RUNNING  SUM  OF  THE  TOTAL  NUMBER  OF  UNIQUE 

MARRAY 

10 

c 

SHlPCLASS/zQUIPMENT  COMBINATION  IN  THE 

MARRAY 

11 

c 

EQUIPMENT  LEVEL  INPUT 

MARRAY 

12 

c 

ijec (2, j ,  u 

-  THc  NAPE  OF  THE  SHIP  CLASS 

MARRAY 

1  3 

c 

It. ETC) 

MARRAY 

14 

5  J 

c 

IREC ( 3  » 6  *  9 

-  THE  NAME  OP  THE  EQUIPMENT 

PARRAY 

15 

c 

12. ETC) 

MARRAY 

16 

c 

IPECC.,7.10 

-  INDEX  FOR  MASS  STORAGE  UNIT  3.  AN  INTEGER 

MARRAY 

17 

c 

1  J.cTCI 

NUMBER  BEGINNING  A  lfi  ANO  INCREMENTING  BY 

MARRAY 

ia 

c 

2  TO  FORM  18, 20, 22,25, ETC.  IMIS  INOEX  IS 

MA  KRAY 

19 

55 

c 

TME  STARTING  LOCATION  OF  A  RECORO  (LENGTHI 

PARRAY 

20 

c 

"NWBS  WORDS")  ON  MASS  STORAGE  3  WHICH 

MARRAY 

21 

r 

CONTAINS  THE  UNIT  COSTS  OF  THE  EQUIPMENTS 

MARRAY 

22 
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c 

CM  A  UMIT  SHIP  (COMPUT'D  BY  SUBROUTINE 

NACRAY 

23 

c 

C0MPCMP»  . 

MAGRAY 

24 

c 

MA  PR  AY 

25 

COMMON  f  Ma^3At 

/  ISEC(V5(i> 

►ARRAY 

26 

c 

MS? 

2 

c 

•  «« 

(LENGTH  INC  C  0  UN  T  F  9  t  COMMON  •••••••••••••••♦ 

MS2 

3 

c 

MS  2 

k 

c 

MS  2 

5 

c 

Li'  NR 

-  MASS  STORAGE  UNITS  COMMON  RECORD  LENGTH 

MS  2 

6 

c 

(TYPICALLY  1501 

MS  2 

7 

c 

NWBS 

-  NUMBER  CP  ELF  ME  NT  S  IK  THE  CBS  (MAX  150) 

MS  2 

9 

c 

ICCTR 

-  NUMBER  Of  equipments  in  the  equipment 

MS  2 

9 

c 

elements  table 

MS  2 

10 

c 

L150 

-  (150  HOROS)  RECORD  LENGTH  of  7  ARRAYS 

MS  2 

1 1 

c 

IN  the  "CERVCS**  CCMMCN 

MS  2 

12 

c 

LUt, 

-  (9J0  WOfiCS)  RECORD  LENGTH  OF  2  ARRAYS 

MS  2 

13 

c 

IN  THE  “CE  TVLS"  COMMON 

MS  2 

14 

r 

MS  2 

15 

COMMON  /  MS2  / 

LtNR.MHOS. ICCTR, L150.L190 

P$Z 

16 

c 

NS  2 

1C 

c 

MS  2 

18 

c 

MS  2 

19 

c 

KFUT 

2 

c« 

* 

NPUT 

3 

c 

KPUT 

4 

c 

VAR 

ICUS  OTHER  ARRA 

YS  ARE  EOUIVALENCED  TO  THE  -ASAY-  ARRAY  AS  INI 

NPUT 

5 

c 

nput 

6 

c 

SLCCn  l  ROW 

s 

aray  (t*n 

NPUT 

7 

c 

euOGET  *  CG 

= 

ARAY (1.21 

NPUT 

8 

c 

ikpupo  *  iorec 

X 

ARAYU.l) 

NPUT 

9 

c 

CCMPCMPI  ROW 

s 

ARAY (1,1) 

NPUT 

10 

c 

APCSLM  *  I RA  Y 

= 

ARAY (1,11 

NPUT 

11 

c 

NPUT 

12 

COMMON  /  HPUT 

/  ARAY ( 150 ,2  ) 

KPUT 

t  3 

c 

NPUT 

Ik 

c 

SYST 

2 

c 

*•« 

• 

SYST 

3 

c 

SYST 

k 

c 

NMSYS 

-  NAME  OF  TMc  SYSTEM 

SYST 

5 

c 

NOSUB 

-  TOTAL  NUMBER  OF  SHIPCLASSES  CONSIDERED 

SYST 

6 

c 

nmsuei  ,  ) 

-  NAME  OF  THE  SHIPCLASS  IN  TWO  WORDS 

SYST 

7 

c 

KCCOMP  <  1 

-  INQF.X  NUMBER  FOP  EQUIPMENTS  (COMPONENTS) 

SYST 

8 

c 

(RUNNING  TOTAL  FOR  EQUIPMENTS) 

SYST 

9 

c 

NHCCHPC  ,  ,  ) 

-  NAMES  OF  EQUIPMENT  (2  WORDS)  FOR  TITLES 

SYST 

10 

c 

IN  WBSOUT  (INDEXED  eY  EQUIPMENT  NUMBER 

SYST 

11 

c 

A NO  SHIPCLASS  NUMBER) 

SYST 

12 

c 

r.AHtSCi  •  ) 

-  NAMES  OF  EQUIPMENT (2  WORDS,  7  CHARS  EACH) 

SYST 

13 

c 

FOR  EQUIPMENT  QUANTITIES  TABLE  -  FLEET 

SYST 

14 

c 

SUMMARY 

SYST 

15 

c 

foul 

-  PRESENT  EQUIPMENT  (BEING  PROCESSED) 

SYST 

16 

c 

SHIPNH 

-  PkESENT  SHIPCLASS  (BEING  PROCESSED) 

SYST 

ir 

c 

SYST 

18 

c 

SYST 

19 

COMMON  /  NAMfS 

/  NMSYS.  NOSUO,  NMSUP(2,<*3)  ,  NOCOMP  (43), 

SYST 

20 

1  NHCOHMZ,  31  .NAHESC  (  l  J  0  ,  Z  »  ,£0UI  ,  S  (■  IPNM 

SYST 

21 

INTEGER  E  QUl tSHlPNM 

SYST 

22 

c 

•  •• 

SYST 

23 
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11? 

C 

SYST 

24 

C 

NAP 

COUNT  OF  OIFFtRc NT  APPROPRIATION  COOES 

SYST 

25 

c 

APPRO!  > 

APPROPRIAT [OR  CODE  NAMES 

SYST 

26 

c 

SPCL<  «  ) 

PERCENTAGES  FOR  CBS  ELEMENT  COST  SPLITS 

SYST 

27 

c 

NPM 

COUNT  OF  THE  LIFE  CYCLE  PHASES 

SYST 

29 

122 

c 

IPH<  ) 

PIRST  CBS  ELEMENT  NUMBER  OF  EACH  PHASE 

SYST 

29 

c 

IPBI  ) 

COS  ELEMENT  NUMBER  FOR  PAGE  BREAKS 

SYST 

30 

c 

(LAST  CBS  NUMBER  FCR  THE  PAGE) 

SYST 

31 

c 

IPHAS=<  '  > 

TITLES  OF  CBS  PHASES 

SYST 

32 

c 

FLc )  T  7 

FLEET  (SYSTEM)  SIZE 

SYST 

33 

1?? 

c 

N90LH  1 

LOWEST  COST  ELtMtNT  LEVEL  TO  BE  PRINTED 

SYST 

34 

c 

(LOWEST  LEVEL  TO  BE  RCLLEO  UP  WITHIN  PMA  SE ) 

SYST 

35 

c. 

ROT  0  T 

TOTAL  ROT IE  COST 

SYST 

36 

c 

TGTIUV 

TOTAL  INVESTMENT  COST  MINUS  TOTAL  RIPOUT 

SYST 

37 

f. 

TOT^IP 

TOTAL  RIPOUT  COST 

SYST 

38 

130 

c 

CMISP0 

MISSILE  ROUE  COST 

SYST 

39 

c 

nofly 

NUMBER  CF  COS  ELEMENTS  TO  OE  INCLUQEC  IN 

SYST 

43 

c 

FLYAWAY  COSTS 

SYST 

41 

c 

IFL  YROW (  ) 

CBS  ELEMENT  NUMBER  FCR  FLYAWAY  COSTS 

SYST 

42 

c 

NOYRS 

NUMBER  OF  YEARS  IN  SHIP  INSTALLATION  TABLE 

SYST 

43 

13? 

c 

IYEAR5 

YLARS  COVE REO  0 Y  TH£  SHIP  INSTALLATION  TABLE 

SYST 

44 

c 

IYRS 

NUMBER  OF  YEARS  IN  SHIP  INSTALLATION  TABLE 

SYST 

45 

c 

PLUS  ONE  (COLUMNS  FOP  PRINTING  SHtP/INST  TABLE) 

SYST 

46 

c 

FNO  TFS (  *  1 

FOOTNOTES  FOR  FIRST  TWC  MAJOR  OUTPUT  CHARTS 

SYST 

47 

c 

SYST 

49 

140 

COMMON  /  MISC  /  NAP, APPRO  17) ,  SPCL  (3,6,2) »NPH, IPH (4 ) *IPBI 3)  • 

SYST 

49 

1  iphasE < 2 • 

41  .  FLctTZ.NROU.  141  ,ncror,  TOMMY,  tot  rip. 

SYST 

SO 

Z  SMlSRC.MOFlMIFimwMSI .NOYRS, IVE4RS  IIZI • IYRS* 

SYST 

51 

3  FNOTES15, 

12) 

SYST 

52 

INTEGER  APPRO, SPCL 

.fleetz 

SYST 

53 

145 

c 

SYST 

54 

c 

WBSTOT 

16 

DIMENSION  TOT ( 150  J 

WBSTOT 

17 

c 

WBSTOT 

19 

c 

STARTING 

I  NOE  X  FOR  STORAGE  OF  THE  SHIP  SUMMARIES 

WBSTOT 

19 

150 

c 

totals  ON  UNIT  10 

w^sror 

20 

OATA  INOXTOT  /  1251  / 

WBSTOT 

21 

c 

WBSTOT 

22 

IPH2  =  IPH<2) 

WBSTOT 

23 

IPML  s  IPM(NPH) 

WBSTCT 

24 

155 

NWBSH1  =  NWflS  -  l 

WBSTOT 

25 

CO  150  ISUBSsl , NOSUB 

WBSTOT 

26 

c 

weSTCT 

27 

c 

Of  FI WE  INDEXES  FCR  PICKING  THE  PROPER  COMPONENTS 

WBSTOT 

29 

c 

FOR  THIS  SHIP 

WBSTOT 

29 

160 

I  Be  G  s  ICCMP(ISUOS)  *3*1 

WBSTCT 

30 

1 1 no  s  ibeg  *  (NocoMpasuesi  -  n  •  3 

WPSTCT 

31 

JfltG  =  UB-G-ll/3 

WPSTOT 

32 

c 

WHSTOT 

33 

c 

INITIALISE  SUMMATION  LOCATIONS 

WBSTOT 

34 

Id? 

OO  U  J* 1 , NH0S 

WBSTOT 

35 

TOT  4  J )  s  0.0 

WBSTCT 

36 

10  CONTINUE 

WBSTOT 

37 

c 

wflSTOT 

39 

c 

OcVELOP 

the  component  totals  for  THIS  SHIP 

WBSTOT 

39 

170 

c 

WBSTOT 

40 

c 

THE  FINAL  TOTAL  (HUBS 

LINE)  IS  GOTTEN  BY  SUMMING  THE  PHASE  BREAK  LINES 

WBSTCT 

4  ! 
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C 

WO S TOT 

42 

00  1*0  IM.NMASM1 

WOSTOT 

43 

ierGX  =  I  Be  G 

WBSTOT 

4  ** 

175 

JttrGX  =  JRCG 

WflSTCT 

45 

IF  II. LT.  rPHU  GO  TO  53 

wOSTCT 

46 

If  ( NPH. €0.2)  GO  TO  oO 

WRSTGT 

47 

c 

KfiSTCT 

46 

OC  5ii  J*  I H*  G.IENO.  3 

WOSTOT 

4  9 

Ida 

CALL  WSAUMS  (  3.  AF  AY  (1.2). 

LENR.  IRtCIJI  ) 

WBSTOT 

50 

TCT1II  =  TOT (I 1  ♦  ARAYU.2I 

*  FLOAT  (CSTAeLE  lIBECX-in 

WBSTOT 

51 

I BEG  X  =  IBEGx  ♦  3 

weSTOT 

52 

50 

CONT I NUE 

WBSTOT 

53 

GC  TO  103 

WOSTOT 

54 

185 

60 

CONT iNOc 

WBSTOT 

55 

OO  70  J* I 9SG. I cNIU  3 

WBSTOT 

5  o 

CALL  «FAOM$  (  3,  A  RAY (1.2). 

LENR,  IRE C  ( J>  > 

WRSTCT 

57 

TOT  11 »  *  TOT ( I )  ♦  ARAYII.3I 

•  CSTABEU  J9EGX  ) 

WBSTOT 

5  8 

7  J 

COMTIKU* 

WRSTOT 

59 

190 

c 

weSTCT 

to 

10  0 

CONTINUE 

WBSTOT 

61 

TOT(NWRS)  =  TOT  11 )  ♦  TQT(IPH2I  ♦  TOKIPHLI 

WBSTOT 

62 

c 

WBSTOT 

63 

c 

oefine  INOEX  FOR 

STORAGE 

WBSTOT 

64 

195 

I  MIX  =  INOXTOT  ♦  I  SUBS  -  1 

WBSTOT 

65 

c 

WBSTOT 

66 

c 

STORAGE  OF  TOTALS 

ON  UNIT  10 

WOSTOT 

67 

CALL  WRITMS  <  10,  TOT.  NWHS 

.  TNOX  1 

WeSTOT 

65 

c 

WOSTCT 

69 

2u  0 

15  0 

CONTINUE 

WBSTOT 

70 

c 

WBSTOT 

71 

*£  TURN 

weSTOT 

72 

ENO 

WBSTOT 

73 
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0  PT=2 
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SUBROUTINE  ARC  ELM 

APC  w  L  M 

2 

RFCfcLM 

3 

THIS  ROUTINE  OtFlNtS  T HE  IWO^O  AkkAY  USFC  IK  ThE 

APC  tLM 

4 

WESGUT  RuUUNi  - 

apc Elm 

5 

IWORCU.l)  -  APPRO  CODE 

APC  L  LM 

6 

INOS.C<Ii2>  *  ELEMENT  NUNoth. 

mFCclm 

7 

I  WQkG  Cl  *  21  - 

APC  £  LM 

0 

iWOkO(I»4J  -  THtSE  3  COST  tLcHt'M  T ITL  t  <C8S» 

APCELM 

9 

I  WORD  (1,51  - 

AFCt  LM 

10 

WHERE  *1*  GOES  FROM  ONE  TO  NN0S 

APCfcLM 

11 

APC  E LM 

12 

ARRAY  CONTAINING  APPRO  CODE.  CO*  NUMEC  « •  COST 

ELEMENT  IC 

ARt ICLT 

2 

CONHCN  /  APtlLOUl  /  IWQkOt 150 »5i 

ARtLCLT 

3 

RRL  1 

2 

NPL  1 

3 

KPLT 

4 

VARIOUS  CTEE*  AFkAYS  Aht  EQUIVALENCE!/  TO  THE  "ARM" 

ARP  AY  AS  INI 

RFC! 

5 

NPCT 

6 

SLCCH  1  ROM  »  ARAYU.l) 

NPL  T 

7 

BUDGET  1  CG  a  AR  AT  ( 1  •  21 

NPL  1 

ft 

INPUPC  1  IOt.EC  *  ARAY 1 1 , 1) 

NPL  1 

9 

COMPCNPl  ROM  »  ARAYU.ll 

NFL  T 

10 

AFCELH  »  IRA Y  a  ARAYtl.ll 

NPLT 

11 

NPL  t 

12 

COUPON  /  NPUT  /  ARAY <150. 2) 

NPLT 

13 

NPUl 

14 

MS, 

2 

#  «< 

MS2 

3 

MS2 

4 

MS2 

5 

LtNF  -  MASS  STORAGE  UNITS  COMMON  RECORC  LENGTH 

MS2 

b 

(TYPICALLY  150) 

MS2 

1 

NMBS  -  NU.16LR  OF  CLEMENTS  IN  T  ME  CBS 

(MAX  150) 

KS2 

6 

ICCTR  -  NUMBER  OP  EQ II PMENT5  IN  TPE  EQUIPMENT 

MS  c 

9 

ELEMENTS  TABLE 

MS2 

10 

L 15  0  -  <150  WORCSl  RECORD  LfcNGTH  OF  7 

<K RAYS 

MS2 

11 

IN  THE  "CERVIS"  COMMON 

M$2 

12 

L5Q0  -  <9j0  WOK  CS )  RECORD  LENGTH  OF  2 

ARRAYS 

KS2 

13 

IN  THE  "CERVLS**  COMMON 

MS  2 

14 

M.S  < 

15 

COMMON  /  HS2  /  LENR,  NW0S.  ICCTR.  L15*,ll9v 

piS2 

lb 

MS2 

17 

MS2 

IS 

MS  c 

19 

APC  ELM 

lb 

DIMENSION  IRA Y  (1) 

AfCELM 

17 

AFCt LM 

IS 

INTEGER  BLANK 

AFCELM 

19 

AFCFLM 

20 

EQUIVALENCE.  (  AkAY,  IRAYI 

AFCtLM 

n 

»Pi:llm 

22 

DATA  eiAKK  /  10H  / 

AFCELM 

23 

APCELM 

24 

SETUP  MBS  COUNTER 

APCELM 

25 

I  3  a 

APCELM 

26 

apc elm 

n 

LOOP  P OR  5  PILtS  OP  CATA  ON  EMIT  J 

AFCELM 

2ft 
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-7 /Jl/tB 

2S.IS 

00  40  £*1,1 

AFCUB 

29 

CALL  IHAOkS  1  3,  ARAY,  LuMf  ,  M  1 

APCtLH 

JO 

it 

c 

ARCELN 

21 

c 

UEFlNt  ALL  tLtrtfcNTS  ON  INQtX  M 

APCHN 

32 

DO  30  J*  1 , 30 

AFCtLK 

33 

1=1*1 

APCELN 

34 

c 

ARC  ELM 

35 

65 

c 

rest  FOR  NOBS  ELEMENTS 

APCELN 

3b 

IF  1  I  .GT.  NH8S  1  GO  TO  SO 

APCELN 

37 

IWORCd.il  =  IRAY(J»S-4I 

APCELN 

3ft 

If  1  IkOROd.ll  .£0.  0  )  TWORDll.l)  >  BLANK 

APCELN 

29 

c 

APCtLN 

*0 

?G 

IROROd.21  >  I 

nFCELH 

41 

c 

APCELN 

42 

XROROd.il  *  IRAY<J»S*3I 

aPCElh 

43 

IWORCd.41  *  lAAYIJ*5-2) 

APCtLr 

44 

IROROd.Sl  =  IRAY»J»S-1I 

APCELN 

45 

7f 

00  24  M3, 5 

AfCELR 

4b 

if  i  iRCnoa.Ni  .go.  o  i  imocgh.ni  *  blank 

APCELN 

47 

20 

CONTINUE 

Af  CC  LN 

4ft 

c 

APCELN 

49 

30 

CONTINUE 

APCELN 

5J 

1- 

c 

APCELN 

51 

40 

CONT INLE 

mPCELN 

52 

c 

afceln 

53 

so 

CONTINUE 

APCELN 

54 

c 

APCELN 

55 

65 

RETURN 

APCELN 

56 

ENO 

APCELN 

57 
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7H/7L 

OF  I  *  2  FTN  4.64*33  u 

7 /II  .19 

21. S3 

SUBROUTINE  HOUCK! 

PCLCNT 

2 

kflUU 

3 

1  HIS 

fuUTINt  WILL  8t  CALUC  WHEN  CHF  TCN  T  (*5)  OPTION  IS 

ROLCKT 

4 

S  t  T  TO  U 

THIS  ROUTINE  HILL  COUNT  UP  THfc  NUMBER  CF  CCS) 

RCLCM 

5 

F LEmEnTS 

TO  9t  JUPUT  ON  THE  COMPONENT  CHARTS  ANQ  TH£  SHIP 

KCLCNT 

6 

SUMMARY  UnAPTS.  T  He  COST  E  L  S  Mt  NT  S  ARE  SELECTEC  BY  HAVING 

rclcm 

7 

A  RCLl-UP 

NUHOfcK  EQUAL  TC  OK  LESS  THAN  ThE  VALUES  INPUT 

solcnt 

0 

IN  ELlCK 

cata,  the.  input  values  Art  in  a«*ay  nrclu  and  ne Rt 

KOLCNT 

9 

IL  A  SEPARATE  VALUE  FCR  EACH  PHASE  AnO/OR  PACE  BREAK  IF  FULL 

WCLCNT 

10 

PRINTOUT 

WlHE  kc.CUESTc.0* 

RClCNT 

U 

rolcnt 

12 

MS2 

2 

UtNbTH  AND  COUNTER)  L  CMMON  ♦•*#♦•*«♦••••♦•• 

MS  2 

3 

M‘2 

4 

MS< 

5 

LF  NR 

-  HASS  STORAGE  OMITS  COHMCN  RbCORC  LENGTH 

MS  2 

6 

(TYPICALLY  1501 

MS2 

7 

NW8S 

-  NUMBER  OF  ELEMENTS  IN  TEE  CES  (MAX  lEOI 

MS2 

a 

ICCTR 

-  NUMBER  OF  EQUIPMENTS  IN  THE  EQUIPMENT 

MS  2 

9 

ELEMENTS  TABLt 

MS2 

10 

L  IS  Q 

-  (150  MORCS)  RECORD  LENGTH  OF  7  ARRAYS 

MS  2 

11 

IN  THE  “CERVLS“  COHMCN 

MS  2 

12 

L90G 

-  (900  HQRCSI  kECORO  LENGTH  OF  2  ARRAYS 

MS2 

13 

IN  THE  “CERVLS"  COMMON 

MSB 

14 

MS  2 

15 

COMMON  /  MS 2  / 

LtN* .MH8S , 1 CCT  R , VIS  8 , L 196 

MS2 

ib 

MS2 

IF 

MS2 

18 

MS  Z 

19 

ARRAY  DEFINING  THE  RQLL-UP  INPUT  NUMBERS.  TOTAL  CCUNT  OF 

RCLIFCT 

2 

COST  ELtHENTS  HITH  SPECIFIC  ROLL-UP  NUHBERS  TO  BE  OUTPUT. 

RCLLPCT 

3 

ARRAY  OF  SELECTED  MBS  ELEMENTS  NUMBERS,  SELECTED  ROLL-UP 

RCILFCT 

4 

OUTPUT  FLAG 

RCLUFCT 

S 

COHMCN  /  ROLUPCT  /  IROLL (  15 J 1  ,  ROLL  TOT ,  RO LLSL ( 1  ED  )  ,  ROLLFLG 

kCL  IPCT 

6 

INTEGER  RCLLTOT,  ROLLSL ,  RCLLFLG 

KGIUFCT 

7 

KOLLFCT 

a 

RCLUFCT 

9 

HOL  UPCT 

Id 

SYST 

2 

NAMES  COMMON  . . . 

SYST 

3 

S  1ST 

4 

NMSYS 

-  NAME  OF  THt  SYSTEM 

SYST 

5 

N0SU8 

-  TOTAL  NUMBER  OF  SH1PCLASSEG  CONSICERED 

SYST 

b 

NMSUG  <  ,  \ 

-  NAME  OF  THE  SHlPCLASS  IK  TWC  WORCS 

SYST 

7 

NOCCMFC  1 

-  INOEX  NUMBER  FOR  EQUIPMENTS  (COMPONENTS) 

SYST 

a 

(RUNNING  TOTAL  F OR  EQUIPMENTS) 

SYST 

9 

NMCCMfl  f  .  ) 

-  NAMES  OF  EQUIPMENT  (2  WORDS)  FCR  TITLES 

SYST 

Id 

IN  WBSOUT  (INOEXEO  BY  EQUIPMENT  NUMBER 

SYST 

11 

ANO  SHlPCLASS  NUMBER) 

SYST 

12 

NAMcSCl  ,  ) 

-  NAMtS  OF  t QU IPMtNT ( 2  WOWOS,  7  CMARS  EACH) 

SYST 

13 

FOM  EQUIPMENT  QLANTITIES  TABLE  -  FLEET 

SYST 

14 

SUMMARY 

SYST 

15 

EQUI 

-  PRESENT  EQUIPMENT  (BEING  PROCESSED) 

SYST 

16 

SHlfNM 

-  PRESENT  SHlPCLASS  (BEING  FKCCFSSEC) 

SYST 

17 

SYST 

ia 

SYST 

19 

COMMON  /  NAMtS 

/  NMSYS*  NOS l b  f  NN  SUb  <  2  » 43)  *  N0C0HPC43)* 

SYST 

24 
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sue*  OUT  INc 

ROLCNT  ?<• 

/?4 

UP  Taj  FTN  h  •  t  +  4  3  3 

,.7/31/79 

2 J .  S3 

1 

KHCOMF(  2»  luu , 43) , NAMt SC < luC ,21  ,C  GUI, Shi F4K 

SYST 

2  1 

INTEGFF 

£  QUI 

»  SHI  fM M 

SYST 

22 

6v 

c 

Misc  (MISCELLANEOUS)  CCMHON  . . 

SYS  1 

21 

c 

S>ST 

2  4 

c 

NAP 

-  COUNT  OF  OIFFInENT  Ar Ftf  CPk I  ATI CN  CCCES 

SYST 

25 

c 

APPRO  t 

) 

-  pnPPkOPPIATIOK  CCOt  NAMES 

SYST 

26 

c 

5PCII  ■ 

) 

-  PERCENTAGES  FOR  CSS  £LtPENT  COST  SPLITS 

SYS  1 

27 

66 

c 

NPM 

-  COUNT  OF  THE  LIFE  CYCLE  PHASES 

SYST 

26 

c 

I  PH  1  ) 

-  FIRST  CBS  lL t  Me  NT  NUMBER  OF  lACH  FMASE 

SYST 

29 

c 

IPQ  (  1 

-  CBS  ELEMtNf  NUMBER  FOR  PAGE  BREAKS 

SYST 

3J 

c 

(LAST  CBS  NUFBCR  FOR  THE  PAGE) 

SYST 

It 

c 

IPHAS2 ( 

»  > 

•  TlTLtS  OF  CBS  PHASES 

SYST 

22 

76 

c 

FLEET? 

-  FLEET  (SYSTEM)  SI2E 

SYST 

J3 

c 

NPOlL  l 

) 

-  LOWEST  LOST  tLEMLNT  LEVEL  TC  BE  PRINTED 

SYS  1 

24 

c 

(LUMtST  LEVEL  TC  eE  KULLtC  UP  WITHIN  PMASfc) 

SYST 

35 

c 

ROTOT 

-  TOTAL  ROUE  COST 

SYST 

2b 

c 

TO  T IN  v 

-  TOTAL  INVEST  FE  NT  COS  1  MINUS  TOTAL  RIFOUT 

SYST 

27 

75 

c 

TQTfiJF 

-  total  RIFOUT  COST 

S  'iS  T 

26 

c 

SMISRC 

-  MISSILE  hOT l E  COST 

SYST 

29 

c 

NOFLY 

-  NUMEER  OF  CBS  ELLMENTS  IQ  BE  INClUCEO  IM 

SYST 

4J 

c 

FLYAWAY  COSTS 

SYST 

41 

c 

iflyscn 

(  > 

-  CBS  ELtMENT  NUMetR  FOR  FLYAWAY  COSTS 

S  >ST 

42 

HC 

c 

NOYRS 

-  number  of  years  In  ship  installation  table 

SYST 

43 

c 

IYEARS 

-  YtANS  CU  VERE  0  BY  T ME  SHIP  INSTALLATION  TABLE 

SYST 

44 

c 

IYRS 

-  NUMBER  of  yeans  in  ship  Installation  table 

SYST 

45 

c 

PLUS  ONE  ICOIUMNS  FOk  PRINTING  SHIP/lNsT  TABLE! 

SYsT 

46 

c 

FNOTES  < 

•  ) 

-  footnotes  for  first  two  major  oltfut  chants 

SYST 

AT 

c 

SYST 

46 

COMHCN  / 

H 1 SC  /  NAP, AFPRO ( 7 > , SPCL  !3,6, 21  , NPH, IFH ( A  1 , IP0 < 3)  . 

SYST 

49 

1 

IPHASE  (2  ,  A 1  ,  FLE  E  T  2.NROLL  U»  ,R  CT  0  T  ,  TuT  IN  V  ,  I CTN1F  , 

SYST 

5a 

2 

SMISRO,  NOFLY,  IFLYROM(25(  ,NCYkS.IYEAKSll2>,  IYRS. 

SYST 

51 

3 

FNOTE  S ( S , 12! 

«Y$  y 

52 

■H 

INTEGER 

APPRO, SPCL, FLEET7 

sys  r 

S3 

c 

SYST 

54 

c 

RCLCNT 

lb 

ROLL  TOT 

*  0 

ROLCNT 

17 

c 

RCLCNT 

16 

95 

DO  10  1= 

IfNWSS 

RClCNT 

19 

c 

rcllnt 

20 

IF  (  I  • 

t  Q  • 

t  )  NOUT  *  NkOLL ( 1 ) 

RClCNT 

21 

IF  <  I  , 

EC. 

(IPb(l)  ♦  i)  )  NOUT  *  NR (LL ( 2 ) 

RClCNT 

22 

IF  1  I  . 

EQ. 

( I PB ( 2 )  ♦  1)  )  NOUT  a  NRCLLiJ) 

ROLCNT 

23 

U' 

IF  (  I  . 

EC. 

( Z  PQ  4  3)  ♦  1)  )  NOUT  •  NKCLL(W) 

RCLCNT 

24 

c 

ROLCNT 

25 

IF  (  IrOLL(I)  .1.1.  NOUT  }  GO  TO  10 

ROLCNT 

26 

c 

RCLCNT 

27 

HOLLIOT 

*  nollto t  *  i 

RCLCNT 

20 

1  j5 

ROLLSL  IRCLLTOT1  ■  I 

RCLCNT 

29 

c 

RCLCNT 

20 

10  CONTINUE 

RCLCNT 

21 

c 

ROLCNT 

22 

RETURN 

ROLCNT 

23 

UC 

END 

RClCNT 

24 
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suaRcuiiNt  oun 

(ICALL) 

CUT  1 

2 

CUT1 

3 

THIS  SUeHOUTINc 

.  OUT  1 1  HILL  G  l  NfcR  AT  E  OUTPUT  FOR  ALL  NKbS 

CU  1 

4 

COST  ELEMENTS  FOR  THE  FLEET  SUHMA*  5  CHARTS ,  THE  OK  XT  'Mlf  COSTS 

cull 

5 

CHARTS.  Ok  T Hi  SHIP 

CLASS  SUMMARY  COSTS  CHARTS. 

CUT  1 

6 

ICALL  = 

1  FL-ET  summary  CHARTS 

CUT  1 

7 

ICALL  = 

2  UNIT  SHIP  COSTS 

oun 

8 

Ilall  * 

3  SHIP  CLASS  SUMMARY  CHARTS 

CUT  1 

9 

oun 

la 

AftRuY  CONTAINING  APPRO  CQOE  ,  CeS  RUPEE  R»  COST  !*L  EMENI  U 

AFtLCLT 

2 

CONNCN  /  APCLOUT 

/  IH0RQ(!5Q»«I 

Aft  LOUT 

3 

MS2 

2 

MS  2 

3 

MS  t 

** 

MS2 

5 

LtNR 

-  HASS  STORAGE  UNITS  CCMMCN  NECORC  LENGTH 

MS2 

6 

1TYPICALLY  1501 

MS  2 

7 

NHBS 

-  NUMBER  OF  ELEMENTS  IN  T  RE  CBS  (MAX  1501 

MS2 

8 

1CCTR 

-  NUMBER  OF  EQUIPMENTS  IN  THE  EQUIPMENT 

mSE 

9 

ELEMENTS  TABLE 

rS2 

10 

Lisa 

-  (ISO  HORCS)  RECCRO  LENGTH  OF  7  ARRAYS 

MS2 

11 

IN  THE  "CERVIS"  COMMON 

MS  2 

12 

L900 

-  «9aa  MORES)  RtCORO  LcNGTH  OF  2  ARRAYS 

MS  2 

13 

IN  THE  -CERVLS"  COMMON 

MS2 

14 

MS  2 

15 

COMHCN  /  MS  2  /  LENK.NM6S.ICCTR  ,L15ii,L190 

HS2 

16 

MS2 

17 

MS2 

18 

MS2 

19 

vteSCUT  kOUTINl  COMPUTED  VALUES,  ARRAYS  ANO  COKTRCLS  NlEDEO 

CUT  CNTS 

2 

FOR  THE  OUT  1  SUBROUTINE 

'CUTCNIS 

3 

K  SC  ARRAY 

-  SHIP  NAMES 

CU  TC  NTS 

4 

IfLCCL 

-  OUTPUT  COLLMH  FLAG 

0U1CNTS 

5 

»  a  COMPS  OR  SHIPS  LESS  THAN  S 

CUTCNTS 

6 

*  1  CUMPS  OR  SHIPS  GREATER  THAN  9 

CUTCNIS 

7 

*  2  LAST  SET 

OLICNTS 

8 

IFG 

-  PAGING  FLAG 

CUTCNIS 

9 

F NT  1 10  ARRAY 

-  ENCOCEO  FORMAT  110 

OUTCNTS 

10 

F  NT  12  0  ARRAY 

-  ENCOOE Q  FORMAT  120 

CUTCNTS 

11 

K  PR  ANA  AY 

-  COMPONENT  OR  SMIF  NAMES  FOR  COLUMN  HEADINGS 

OUTCNTS 

12 

KC,  K1 

-  INDICES  fQ ft  THt  KPR  ARRAY 

OUTCNTS 

13 

itotal 

-  HOLLERITH  CHARACTERS  'TOTAL' 

C 1 1C  MS 

1* 

TOT  A  f RAY 

-  SUMMATION  ARRAY  fOR  FINAL  COSTS  CF  6ITHEA 

0U1CNIS 

15 

COMPONENTS  ON  SHIPS 

C i TC  N  IS 

16 

KCT 

-  I NOE*  FOR  Tht  AWGFC  AFRAY 

OUTCNTS 

ir 

AkOfO  ARRAY 

-  CONTAINS  THE  COSTS  FOR  ALL  THE  NHBS  VALUES 

CUTCNTS 

18 

FQfc  AT  MUST  10  C CHPON fcN TS  OR  SHIPS 

CUTCNIS 

19 

COMMON  /  OUTCNTS 

/  KSCI2) ,  IFLCCL,  IPO,  PHTIIOIIS),  FNT 12L( LI , 

CUTCNTS 

2w 

1 

KPHI2GI,  KC ,  Kl,  ITOTAL,  TOT  1159),  KCT, 

CUTCNTS 

21 

2 

AMORO 1 15  J , 101 

CU1CNTS 

22 

3.FMT12 3  <<*  )  ,  KWOhO  1  3  )  ,  JMOPD  I  3)  .UN1TFLT  CL<i )  ,  TOTUFLY  ,  SM I FFL  Y  ( 1.  3) 

CUTCNTS 

23 

L.TOTSHIP 

CUTCNTS 

2** 

ARRAY  Ot  FINING  THE  ROLL -UF  INPUT  NUMBERS.  TOTAL  COUNT  Of 

FCLUPCT 

2 

COST  SLtHENTS 

WITH  SPECIFIC  ROLL-UP  NUMBERS  TO  9F  OUTPUT, 

hCIUFCT 

3 

ARRAY  OF  SELECTED  RBS  ELEMENTS  NUMBERS  ,  SLLtCTEf)  ROLL-UP 

SOLLFCT 

4 

OUTPUT  FLAG 

SCLLFCT 

5 

COMMON  /  ROLUPCT 

/  XROLL  t  15U ) ,  ROLLTOT,  ROLLSLtlSJI,  ROLLFLG 

ROU  IFCT 

6 

A-94 


oor>onr>  ooooononoor.  o  oor>r'Ooon<“,  or/or>or‘r>r>oor>or>rjooor> 


:UH0UTIK€ 


I  u 


DUTl  74/74  OF 

T  =  £  FT  N  ‘t .  6  ♦  A  3  i 

.7 /31/7S 

23,  S3 

1NTEGE  N 

RCLLTOT  , 

PQLLSL,  HQLLFLG 

SCLUFCT 

7 

«C  L  L  FCT 

6 

•  3U0G  CCMhCN  ••••••••••••♦••*♦«••♦••»♦ 

RCLUFCT 

9 

RCLLFCT 

10 

CH t  f TS 

2 

(.HAkTS  (CONTPOLl  COMMON 

CHANTS 

3 

CHA  (TS 

4 

Ch A  (TS 

5 

CMKTCNT 

CONTAINS  TM£  MAJUR  OUTPUT  lHAi  T  CONTROLS 

CHA  (TS 

6 

y 

-  GtNERATE  CHART 

CHANTS 

7 

1 

-  NO  GLNtftATICN  OF  CHART 

CHAFTS 

C 

CHA (TS 

9 

CHRTCM 

(1) 

-  IF  EQUAL  TO  0  -  CALLS  NBSOUTdl  FC«  t QOI RMt NT 

C FA H  TS 

lu 

^L: MlNT  LIFE  CYCLE  CCSTS  -  FLEET  SUMMARY 

CHANTS 

11 

CHRTCNT 

(21 

-  IF  EQUAL  TO  C  -  CALL J  MBS0UT121  FO<  UNIT 

CHANTS 

12 

SHIP  COSTS  BY  tCUlPftNT  f LEM ENT 

CHFC  TS 

13 

-  IP  NE.  TO  a  -  CALLS  NeSTOT  BECAUSE 

C ( A  (TS 

14 

Hb  SOUT ( 2 )  NAS  NOT  CALLCC 

chants 

15 

CHRTCNT 

(31 

-  IF  EQUAL  TO  J  -  CALLS  WESCUT(3)  FCR  SHIP 

CHA  (TS 

16 

CLASS  SUMMARY 

CHANTS 

17 

CHRTCNT 

141 

-  IP  EQUAL  TO  0  -  CALLS  BLOGOP  FOR  LIFE 

CMAf TS 

id 

CYCLE  COSTS  SY  BUDGET  APPROPRIATIONS 

CMA  US 

19 

CHRTCNT 

(5  1 

-  IF  NL.  TO  J  -  CALLS  RCLCHT  FOR  OUTPUT  BY 

CHANTS 

CO 

RuLl “UP  nuhBER 

Cht  US 

a 

CHRTCNT 

(61 

-  IP  EQUAL  To  -  LISTS  The  SUBELS  ARRAY 

CHANTS 

22 

FOR  CNTISE  CBS  FOR  PROOFING 

CMA  ITS 

13 

CHA  (TS 

24 

CHA  (TS 

IS 

COMNCN  / 

CHARTS 

/  CHR  TC  N  T (15  1 

CHANTS 

26 

INTEGER 

CHRTCNT 

CMA  E  TS 

27 

SYST 

2 

SYST 

3 

SYST 

4 

NMStS 

-  NAME  OF  THE  SYSTEM 

SYST 

5 

NOS  LB 

-  TOTAL  NUMBER  OF  SHIPCLASSES  CONSICEREO 

SYST 

6 

NHSLB  1 

.  > 

-  NAMt  OF  TH£  SHIPCLASS  IN  TWO  WORCS 

SYST 

7 

NOCCMM 

1 

-  INOEX  NUMBER  FOR  EQUIPMENTS  (COMPONENTS! 

SYST 

6 

(RUNNING  TOTAL  FOF  tCUlFMENTSl 

SYST 

9 

NMCCHF ( 

f  1  1 

-  NAMES  UF  EQUIPMENT  (2  WOROS1  FOR  TITLES 

SYST 

10 

IN  W6S0UT  (iKC  tXECi  BY  t  CUlPMtNT  NUMeEk 

SYST 

11 

ANO  SHIPCLASS  NUMBER  1 

SYST 

12 

NAMfcSC ( 

1  1 

-  NAMES  OF  EQUIPMENTS  WONOS,  7  CHARS  cACHl 

SYST 

13 

FOR  EQUIPMENT  QUANTITIES  TABLE  -  FLEET 

SYST 

14 

SUMMARY 

SYiT 

15 

EQUI 

-  PRESENT  tQLlFMENT  (BEING  PkCCESSsOl 

SYST 

16 

SMIFNN 

-  PRESENT  SHIPCLASS  (BelNG  PROCESSCCI 

SYS  t 

17 

.SYST 

18 

SYST 

19 

COHHCN  / 

NAMES 

/  NMSVS,  NOSUB,  NMSUB  (2,431  *  NCCUMPU3J, 

SYST 

2u 

1 

NKCOHP(2.1vJ.R3)  ,  NAMESC(1jj,2),ECUI,SHIPKH 

S  1ST 

21 

INTEGE  * 

cQUl.SMIPNh 

SYST 

22 

SYST 

23 

SYST 

24 

NAP 

-  COUNT  OF  OIF  FERENT  APPROPRIATION  COCES 

SYST 

25 

APPRO  < 

> 

-  APPROPRIATION  COCF  NAMES 

SYST 

26 

SPCll  , 

1 

-  PERCENTAGES  FOR  CBS  ELEMENT  COST  SPLITS 

SYST 

27 

NPH 

-  COUNT  OF  THE  LIFE  CYCLE  PHASES 

SYS1 

2d 

A-95 


I2t 


itfnouriNc'  out  i 


7  k/ 7-*  OM«2 


IPm<  > 

IPS  (  ) 

IPHASM  i 
FL€£T2 
NNOLLt  I 

ROTGT 
TOT  IN  V 
TQTRIf 
SMISRC 
HOF  LY 


cas  cttMr  ht  Nur.ee.k  for.  page.  tiRt  aks 

(CAST  CBS  NUftfitN  FOR  THE  PAGE) 

TITLES  OF  CBS  PHASES 
FLtcT  (SYSTEM)  SIZE 
LOWEST  COST  ( L EMC NT  LfV 
(LOWEST  LEVEL  TC  St  POL 

total  roue  cost 

TOTAL  INVESTMENT  COST  MINES  TCTAl  RIFUUT 

total  hi  pout  cost 
Missilt  KOTIE  COST 

NUMBER  OF  cas  ELEMENTS  TO  Bk  INCLUCEC  IN 


FT N  k «6 ♦aSS 

cr  /21/79 

23*53.41 

t  A  C  )■  PPASt 

S  YST 

29 

.  tiRtAKS 

SYST 

20 

iGE) 

SYS  T 

31 

SYS  7 

22 

SYST 

33 

C  BE  P°lNTEO 

SYC  T 

24 

UP  WITHIN  PHASt) 

SYS  1 

29 

SYST 

26 

£  Y  £  T 
SYST 
SYS  T 
SYST 


27 

36 

29 

AO 


c 

flyaway  COSTS 

SYST 

41 

c 

IFLYFCWl  >  -  CBS  ELEMENT  NUMEtR  FOR  FLYAWAY  COSTS 

SYST 

42 

c 

NOYHS  -  NUMBER  OF  YEARS  IN  SHIP  INSTALLATION  TABLE 

SYS  I 

43 

1  lu 

c 

IYEAPS  -  YEARS  CQVEREC  PY  THE  SHIP  INSTALLATION  TABLE 

SYST 

44 

c 

IYRS  -  NUHijt R  OF  YEARS  IN  SHIP  INSTALLATION  TABLE 

SYST 

4i? 

c 

PIUS  ONE  (COLUMNS  FOR  PRINTING  SHIF/INST  TABLE) 

SYS  T 

46 

c 

FNOTfcSl  ,  )  -  FOOTNOTES  FOR  FIRST  TWU  MAJOR  OUTPUT  CHARTS 

SYST 

4  7 

c 

SYS? 

46 

135 

COMMON  /  MISC  /  NAP, APPRO!  M,  SFCL(3,  E, 21 ,NPH,IPH!4I ,IFB(3), 

SYST 

49 

1  IFHASE12.4I •FLEETZ,NROLL (4) ,R LTO T , TOTlM V  ,  T 0  TRIP , 

SYST 

Su 

2  SMIS*0,NOFLY,IFLYRCW(29>  ,  NCi  YR  S ,  I  YE  AkS  <  1  2  > , IYRS, 

SYST 

51 

3  FnOTES ( 6 • 12) 

SYST 

52 

INTEGER  APPRO, SPCL,FLE£TZ 

SYST 

S3 

14G 

c 

SYST 

54 

c 

ecu 

17 

DATA  IcLANK/lH  /,  IPLUS/1M*/,  IONE/1M1/,  IZERO/1HC/,  IMlNUS/ 1M-/ 

CUT1 

16 

DATA  KhOKOUl  /  IQMJNXT  F L  Y AW  / 

ecu 

19 

DATA  K WORD ( 2)  /  10HAY  COST  / 

CUT  1 

20 

145 

DATA  KwORC ( 3)  /  13H  / 

CUT  1 

21 

DATA  JWCRC(l)  /  10HSHIP  FLYAW  / 

CU7 1 

22 

DATA  JNCRO (2 )  /  WHAT  COST  / 

CUT  1 

23 

OATA  JNCFC13)  /  1JH  / 

CL  f  1 

24 

lul  FORMAT  (Al, SIX, ♦tQUlPMENT  ELEMENT  LIFE  CYCLE  CCSTS*) 

CUT  1 

25 

irC 

102  FORMAT  t  A 1 , 56X , 1 4 , *  SHIP  FLEET  SUMMARY*) 

CU1 

26 

112  FORMAT  (Al,clX, *FLELT  SUMMARY* J 

cut 

27 

103  FORMAT  (A1 ,55X ,2A10t*  PMASfc*) 

CUf  1 

26 

104  FORMAT  (Al,c3X,  MFY79  $M>*) 

CUT  1 

29 

105  FORMAT  (A  1.24X, 2A 10,*  SHIP  CLASS  -  UNIT  SHIP  COSTS  BY*, 

CU1 

20 

its 

1*  EQUIPMENT  FLtMLNT*) 

cun 

21 

106  FORMAT  ( A1,51X ,*LIFE  CYCLE  COSTS  -**I4,*  SHIP  FLEET*) 

CU11 

32 

107  FORMAT  (A  1 ,56X ,*SH IP  CLASS  COST  SUMMARY*) 

CLli 

23 

114  FOFMAT  <il,136!lh-l  /  IX) 

cm 

24 

c 

cm 

35 

lEu 

c 

OO-LOOP  F OF  ALL  NWBS  VALUES 

OUT  1 

36 

c 

cun 

27 

ICHART5  *  CHkTCNMS) 

CU11 

26 

KELMNTS  =  NWPS 

CUT  1 

29 

IF  ( ICPARTS  •NE  •«) •  ANOa ICALL  •NE«  1)  KELMNTS  »  ROLLTGT 

cm 

40 

its 

DO  3  u  X*  l , KELMNTS 

cm 

41 

I  a  k 

(HI  1 

42 

IF  UChARTS«HL«G, ANU«ICALL,NE« 1)  X  *  ROLLSL(K) 

cun 

43 

c 

cun 

44 

c 

CHICK  FOR  PAGE  BREAKS  FCR  NEW  HEADINGS 

CUTl 

45 

lZw 

c 

CUT  1 

46 

c 

LINE  1  ON  40 S  ELeMkNT  1  ALWAYS  FORCES  A  FAGt  BREAK! 

CUTl 

47 

A-96 
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iU6M)U!l>s  OU  7  1 


7  4/7*«  CH  7=  2 


FTN  <..{<1.33 


SUfct*  o 

UT  1  Nt  < 

3UT1  74/74  OH  T=  2  FTN  4. €*433 

07  /  3  l/7« 

23 • 5 3 • *1 

C 

EACH  W9S  ELEMENT  WHICH  IMHlOIATELY  FOLLOWS  ONE  CF  THk  LINE  NUMELkS 

CUT  1 

46 

c 

SFECIFIEC  IN  THE  ,,IPBM  ARRAY  FCFCES  A  PAGE  BREAK,* 

CCIl 

4* 

c 

TO  FORCE  FEME0  PAGE  BRcAKS  SET  TWO  OR  HOPE  MEMBERS  OF  “IPfi" 

CUT1 

50 

1  75 

c 

lQUAL  TO  THE  SArn  line  number  (In  block  lata  mIM  7")  : 

CL  1  1 

51 

c 

TC  SUPPRESS  ALL  PaGc  BkLAKS  OTMcK  THAN  LINL  1  Ok  UBS  ELEMENT  t 

cm 

52 

c 

SET  ALL  3  -IFe"  VALUtS  EQUAL  TO  1* 

cur  i 

53 

c 

cm 

54 

IF  (  I  , c Q,  1  >  GO  TO  1C 

cun 

55 

IrtO 

IF  (  I  • EQ.  (IP011)  «•  1  )  )  GC  TO  It 

cm 

56 

IF  (  I.  cQ«  (lFfc(2)  ♦  1  >  >  GO  TO  10 

CUT  1 

57 

IF  (  I.  EG.  (IK(3)  *11  J  60  TO  1C 

cur  i 

56 

GO  TO  20 

cur  i 

5*9 

c 

CU  1  1 

€0 

i  <iS 

n  continue 

cur  i 

61 

c 

cur  i 

62 

c 

UU1PUT  HtAOlNGS 

cull 

63 

IPG  s  IPG  ♦  t 

cun 

64 

CALL  M E AC 

cun 

65 

l*c 

c 

CUT  1 

66 

GO  TO  (60,40,50)  ICALL 

cun 

67 

40  CONTINUE 

0UT1 

66 

WRITE  (6  *  iu5 )  lMINUSf  KSC( 1 ) » KSC  12) 

cur  i 

6*9 

WRITE  Cb,106)  IBLANK, FLEET  2 

OLll 

70 

is* 

GO  TO  70 

CU1  1 

71 

53  CONTINIL 

cun 

72 

WRITE  (6,107)  IM1NUS 

GUIl 

73 

WRITE  (6,106)  IBLANK, FLEET Z 

CUll 

74 

GO  TO  70 

OUT  1 

75 

20L 

60  CONTINUE 

CU  1  1 

76 

WRITE  (6,101)  IM1NUS 

cm 

77 

WRITE!*,  132)  IBLANK,  FLEET  2 

cun 

76 

70  CON T  IN L E 

our  i 

79 

WRITE (€,10 3)  I6LANK,  I PHASE  (1, IFG),IPHASE  (2, IPG) 

cull 

20 

2  35 

WRITE  (6,104)  IBLANK 

cur  i 

e  i 

WRITE  (6,114)  IBLANK 

cun 

62 

c 

cun 

23 

IF  (  IFLGCL  •  N  t  •  1  )  WRITE  (o.FHTUQ)  (KPR  ( J)  ,  Js  1  ,KC)  ,  (KFR(J), 

cur  i 

24 

1  J=  i  1 »K1) ,  ITOTAL 

CU11 

65 

2  1C 

IF  (  IFLGCL  .lO.  1  )  WRITE  (6,FMTllO)  (KP fi ( J)  ,  Js 1 ,  KC ) ,  (KPR(J), 

cur  i 

1 6 

1J*11 *K  3) 

CU  1 

?7 

c 

cu  r  i 

Cfi 

c 

OUTPUT  THE  WBS  COST  CLEMENT  FOR  THESE  CCMPCNENTS 

cun 

69 

20  CONTINUE 

um 

50 

215 

IF  (  IFLGCL  •  NE  •  1  )  WRITE  (6,FMT120)  C I WQRO  ( I,  N  )  ,N=  1 , 5)  , 

cun 

'1 

KAWORO  (I  ,N>  ,N=  l.KCT)  ,  TOT(I) 

cun 

52 

IF(IFLGCL.EQ.l)  GO  TO  200 

cun 

91 

IF  (ICALL. NE.l)  GO  TO  201 

cur  i 

S4 

IF (I, EC,  ( I P  H ( 3 )  -  1))  WRITE (6 , FMT 1 23)  I  ZERO , (KwCRC ( N> ,N* 1 , 31  , 

cun 

95 

22C 

1  IUNITFLV  (N)  ,IJ*1,KCT)  ,TOTUFL Y 

cm 

So 

GO  TG  203 

cm 

«7 

201  IFCI.tC,  (IPHm-1)  )  WRITE  (€,FMTl23)  IZtflO,  ( JWOR  C  (M  )  ,  K*1 , 3  ) , 

cm 

Sfc 

1  (SHIPFLY (N) ,N*1,KCTI , TOTSMIF 

cun 

59 

200  CONTINUE 

cm 

1G0 

2  25 

IF  (  IFLGCL  .EU.  1  J  WRITE  (6,FHT12C)  (1  WORD  ( I  ,N )  ,N*1  ,5 )  , 

cun 

101 

1 (AWORD  ( I ,  N ) ,N*  l.KCT) 

cun 

1C2 

IFIIFLCCL.NE. t  )  GO  TO  30 

cun 

1C3 

IF  (ICALL. NE.l)  GO  TO  202 

OUT  1 

1C4 

A-97 
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This  input  format  guide  provides  the  user  with  a  summary  of  the  format 
for  the  input  file  to  SAFSCAM.  The  input  variables  are  named  as  they  are 
read  by  the  READ  statements  in  the  INPUPD  subroutine  and  will  vary  slightly 
fran  the  descriptive  names  given  in  the  main  text. 


Card  Types 

Input 

Card  Columns 

Format 

1 

TITLE  Identifies  case  run 

1-26 

2A10,A6 

2 

NWBS  number  of  cost  elements  in  CBS 

1-5 

15 

NPH  number  of  phases  in  CBS 

6-10 

15 

IPB  (1)  page  break 

11-15 

15 

IPB  (2)  page  break 

16-20 

15 

IPB  (3)  page  break 

21-25 

15 

3 

I PHASE  (1,K)  name  of  Kth  phase 
in  2  words 

1-10 

A10 

I PHASE  (2 ,K) 

I PH  (K)  first  CBS  element  of 

11-20 

A10 

Kth  phase 

NROLL  (K)  lowest  cost  level  of 

21-25 

15 

Kth  phase 

(Up  to  four  card  type  3s  may  be  used, 
one  for  each  of  4  phases,  K  =  1,  4) 

26-30 

15 

4 

INP(l)  SYSTEM 

1-6 

A6* 

INP  (2)  System  name 

11-20 

A10 

5 

INP(l)  TPUT 

1-4 

A4* 

6 

INP  (3)  CBS  element  number 

INP (3)  budget  appropriation  code 

1-20 

21-30 

A10 

INP  (4)  CBS  element  name 

31-40 

A10 

INP (5)  CBS  element  name 

41-50 

A10 

INP (6)  CBS  element  name 

51-60 

A10 

INP (7)  CBS  element  number 

61-70 

A10 

INP (8)  cost  level 

71-72 

A2* 

7 

INP  (1)  NPUT 

1-4 

A4* 

8 

INP  (1)  SHI PC LASS 

1-10 

A10 

INP (2)  first  word  of  ship 

class  name  (centered) 

INP (3)  second  word  of  ship  class 

11-17 

A-7* 

name 

21-27 

A-7* 

9 

INP (1)  Equipment 

INP  (2)  first  word  of  equipment  element 

1-10 

A10 

name  -  centered 

11-17 

A7* 

B-l 


Input 


Card  Columns 


Format 


INP (3) 

second  word  of  equipment  name 
-  centered 

21-27 

A7* 

INP (4) 

— 

30-40 

A10 

INP(5) 

O&S  quantity  per  ship 

41-45 

A-5* 

INP (6) 

INV.  quantity  per  ship 

51-59 

A-9* 

INP (7) 

appropriation  code  for  Proc 
breakdown  ("SCN",  "OPN", 

61-63 

A-3* 

or  "WPN") 

10 

INP  (1) 

SEND 

1-4 

A-4* 

11 

INP(l) 

EQUIPMENT 

1-10 

A10 

INP (2) 

first  word  equipment 
elevation  name 

11-30 

A10 

INP  (3) 

second  word  equipment 
elevation  name 

31-40 

A10 

12 

INP  (1) 

TPUT 

1-4 

A-4 

13 

INP (1) 

CBS  element  number 

1-20 

A10 

INP (3) 

CBS  element  cost 

21-30 

A10 

INP (4) 

CBS  element  cost 

31-40 

A10 

INP (5) 

CBS  element  cost 

41-50 

A10 

INP  (6 ) 

CBS  element  cost 

51-60 

A10 

INP (7) 

CBS  element  cost 

61-70 

A10 

INP (8) 

CBS  element  cost 

71-80 

A10 

14 

INP (1) 

C'ER 

1-3 

A-3 

15- a 

CEROID 

(blank) 

1-4 

A-5 

EPORSI 

"F"  or  "C"  caculation  type 

6 

A-l 

F  ■  Factor,  C  =  CBS  element  or  subelement 

ROW  ID 

factor  or  CBS  element  number 

7-9 

13 

ADDID 

CBS  subelement  number 

10 

11 

0  -  a 

factor  or  number  subelement 

1-6 

=  a  subelement 

CERNO 

CER  number 

11-15 

15 

XREFNO 

number 

CBS  element  cross-reference 

16-19 

14 

XREFAD 

CBS  subelement  cross-reference 

number 

(0  =>  no  subelement, 

20 

11 

1-6 

*  a  subelement) 

FS (11) 

PS (11) 

FS  (II) 

P(l)  factor  identification 

21, 

22-30 

6  (Al, 

P(2)  (F  »  factor,  blank  =  value) 

31, 

32-40 

PS  (II) 

P(3)  parameter 

41, 

42-50 

P  (4) 

51, 

52-60 

P<5) 

61, 

62-70 

P(6) 

71, 

72-80 

Input 


Card  Columns  Form 


CEREID  ECER 

1-4 

A- 5 

INP(l)  $END 

1-4 

A- 4 

INP  (1) -INP (8)  comment  card  for 
chart  control 

1-80 

8A10 

CHRTCNT(l)  print  control  for: 
equipment  LCC 

fleet  summary  chart  (0  =  print  chart) 

1-3 

1-3 

CHRTCNT(2)  print  control  for: 
unit  ship  cost  by  equipment 
chart  (0  -  print  chart) 

4-6 

1-3 

CHRTCNT(3)  print  control  for: 

7-9 

1-3 

ship  cost  summary 
(0  *  print  chart) 

CHRTCNT<4)  print  control  for: 

LCC  by  budget 

10-12 

1-3 

(0  =  print  chart) 

CHRTCNT (5)  cost  level  print 

13-15 

1-3 

control  (0  =  print  complete  CBS) 

INP  (1) -INP (8)  comment  card  for 
equipment  installation 

1-80 

8A10 

NOYRS  numbers  of  years  in  ship 

1-5 

15 

installation  table 

6-11 

6X 

I YEARS (1)  first  year  for  installation 

12-16 

15 

I YEARS (2) 

17-60 

15 

. 

(etc) 

. 

. 

(etc) 

. 

. 

(etc) 

. 

IYEARS (12)  12th  year  for  installation 

67-72 

15 

SINSTB (1,1)  ship  class  name 
(left-justif ied) 

SINSTB  (1,2)  number  of  ships  outfitted 

1-6 

A- 6 

first  year 

11-15 

1215 

SINSTB(I,13)  number  of  ships  outfitted 

12th  years 

66-70 

(A  type  12  installation  card  is  input 
for  each  ship.  Numbers  for  ship  to  be 
outfitted  may  be  input  for  up  to  12 
years) . 


INP(l) -INP (8)  comment  card  for  unit 
flyaway  cost  data 


1-80 


8A10 


Card  Types  _ Input _ 

23  NOFLY  number  of  flyaway  elements 

to  be  included  in  unit  flyaway  cost 

24  IFLYRQW  (1)  CBS  element  number  for  unit 
flyaway : 

IFLYROW (16) 

25  FNOTES  (1,12) 


FNOTES  (5,12) 

(Must  have  10  cards  for  footnotes) 
Blank  cards  may  be  used. 


Card  Columns  Format 


1-5 

15 

1-5 

1615 

76-80 

1-80 

8A10 

1-40 

4A10 

1-80 

8A10 

1-40 

4A10 

*  Format  for  the  READ  is  A10;  however,  other  restrictions  place  the  limit 
of  the  format  as  indicated. 
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APPENDIX  C 
SAMPLE  RUN 


CARD  INPUT  LISTING 


TESTCASE  DATA 


148 

4 

35  68  108 

P 

0  T 

i  e 

1 

2 

PILCT 

PRODUCTION 

36 

3 

FULL 

PRODUCTION 

69 

3 

OPERATION  1 

SUPPORT 

109 

2 

SYSTEM 

SLCCM 

TPUT 

1) 

RDTiL  PHASE 

1 

1 

2) 

VALIDATION 

2 

2 

3) 

CONTRACTOR 

3 

3 

4) 

FD/OM 

SYSTEM/PPOGRAM  MGT 

4 

4 

5) 

ROTE 

SYSTEMS  ENGINEERING 

5 

4 

6) 

ROTE 

TEST  HAROWARE  FAB 

6 

4 

7) 

ROTE 

DEVELOPMENT  TIE 

7 

4 

8  ) 

RO/MC 

INDUSTRIAL  FACILITIES 

8 

4 

9) 

ROTE 

DATA 

9 

4 

10) 

RDTE 

OTHER 

10 

4 

11) 

GOVERNMENT 

11 

3 

12) 

RO/OM 

SYSTE  )/PROGRAM  MGT 

12 

4 

13) 

ROTE 

SYSTEMS  ENGINEERING 

13 

4 

14) 

ROTE 

TEST  HARDWARE  FAB 

14 

4 

15) 

RDTE 

DEVELOPMENT  TIE 

15 

4 

16) 

RD/MC 

INDUSTRIAL  FACILITIES 

16 

4 

17) 

ROTE 

DATA 

17 

4 

18) 

ROTE 

OTHER 

18 

4 

19) 

FULL  SCALE  DEVELOPMENT 

19 

2 

20) 

CONTRACTOR 

20 

3 

21) 

RO/CM 

SYS/PR  CG/L  CG  SUPT  MGT 

21 

4 

22) 

ROTE 

SYSTEMS  ENGINEERING 

22 

4 

23) 

ROTE 

TEST  HARDWARE  FAB 

23 

4 

24) 

ROTE 

PROTOTYPE  TESTS 

24 

4 

25  ) 

FO/MC 

TOOLING  AND  IND  FAC 

25 

4 

26) 

ROTE 

DATA 

26 

4 

27) 

ROTE 

OTHER 

27 

4 

28  ) 

GOVERNMENT 

28 

3 

29) 

RO/OM 

SYS/PROG/LOG  SUPT  MGT 

29 

4 

30) 

ROTE 

SYSTEMS  ENGINEERING 

30 

4 

31) 

ROTE 

TEST  HARDWARE  FAB 

31 

4 

32) 

ROTE 

PROTOTYPE  TESTS 

32 

4 

33) 

RO/MC 

TOOLING  ANC  IND  FAC 

33 

4 

34) 

ROTE 

DATA 

34 

4 

35) 

ROTE 

OTHER 

35 

4 

36  ) 

INVESTMENT  PHASE 

36 

1 

37) 

FILOT /LIMITED  FRODUCTICN 

37 

2 

38) 

NONRECURRING 

38 

3 

39  ) 

CONTRACTOR 

39 

4 

40) 

FR/OM 

SYSTEM/PFOGRAM  MGT 

40 

5 

41) 

PRCC 

ADV  PRODUCTION  ENG 

41 

5 

42) 

FR/OM 

SYSTEM  TIE 

42 

5 

43) 

PRCC 

LOGISTIC  SUPPORT 

43 

5 

44) 

FR/MC 

TOOLING  ANO  INO  FAC 

44 

5 

45) 

FR/CM 

DATA 

45 

5 

46) 

PR/CM 

INITIAL  TRAINING 

46 

5 

47) 

FROC 

OTHER 

47 

5 

C-l 


(  48) 

GOVER  )M£NT 

48 

(  49) 

PR/CM 

SYSTEM/PROGRAM  MGT 

49 

(  50) 

PR/  C  M 

SYSTEM  TIE 

50 

(  51) 

FRCC 

LOGISTIC  SUPPORT 

51 

(  52) 

PR/MC 

TOCLING  AND  IND  FAC 

52 

(  53) 

FR/OM 

OATA 

53 

I  54) 

FR/CM 

INITIAL  TRAINING 

54 

(  55) 

FROC 

OTHER 

55 

(  56) 

RECUPRING 

56 

(  57) 

CONTRACTOR 

57 

(  58) 

FRCC 

MISSION  HARDWARE  PROD 

58 

(  59) 

FRCC 

tCP/FCO 

59 

(  60) 

PR/OM 

1ST  OEST  TRANS/PKG 

60 

(  61) 

FRCC 

RIP-OUT, INSTALL, INTEG 

61 

(  62) 

FRCC 

OTHER 

62 

(  63) 

GOVERNMENT 

63 

(  64) 

FRCC 

MISSION  HARDWARE  PROD 

64 

(  65) 

FROC 

ECP/ECO 

65 

(  66) 

PR/OH 

1ST  DEST  TRANS/PKG 

66 

(  67) 

FRCC 

RIF- OUT, INST  ALL, INTEG 

67 

(  68) 

FRCC 

OTHE  R 

68 

1  69) 

FULL  PRODUCTION 

69 

(  70) 

NONRECURRING 

70 

(  71) 

CONTRACTOR 

71 

(  721 

PR/OM 

SYSTEM/FROGRAM  MGT 

72 

(  73) 

FRCC 

PRODUCTION  ENGINEERING73 

(  74) 

FR/OM 

SYSTEM  TIE 

74 

(  75) 

FRCC 

LOGISTICS  SUPPORT 

75 

(  76) 

FR/MC 

OPERATIONAL  SITE  ACT 

76 

1  77) 

PR/MC 

TOOLINC  AND  IND  FAC 

77 

(  78) 

PR/OM 

DATA 

78 

(  79) 

PR/CM 

INITIAL  TRAINING 

79 

(  80) 

FRCC 

OTHER 

80 

1  61) 

GOVERNMENT 

81 

(  82) 

FR/CM 

SYSTEM/PROGRAM  MGT 

82 

(  83) 

PR/OM 

SYSTEM  TIE 

83 

1  84) 

FRCC 

LOGISTICS  SUPPORT 

84 

(  65) 

FR/MC 

OPERATIONAL  SITE  ACT 

85 

(  86) 

FR/MC 

TOCLING  AND  IND  FAC 

86 

<  87) 

FR/OM 

DATA 

87 

(  88) 

PR/CM 

INITIAL  TRAINING 

88 

(  89) 

FRCC 

OTHER 

89 

(  90) 

RECURRING 

90 

l  91) 

CONT FACTOR 

91 

<  92) 

FRCC 

MISSION  HARDWARE  PRCD 

92 

(  93) 

PR/OM 

INITIAL  SPARES 

93 

(  94) 

PRCC 

SUSTAINING  ENGINEER ING94 

<  95) 

FRCC 

ECP/ECO 

95 

(  96) 

PR/CM 

1ST  OEST  TRANS/PKG 

96 

(  97) 

FRCC 

SUST  TOOL,  TEST  EQUIP 

97 

(  98) 

FRCC 

RIF- CUT, INST ALL, INTEG 

98 

C  59) 

FRCC 

OTHER 

99 

(100) 

GOVERNMENT 

100 

(1C1) 

FRCC 

MISSION  HARDWARE  PROO 

101 

(102) 

FR/OM 

INITIAL  SPARES 

102 

(103) 

FROC 

SUSTAINING  ENGINEERINGS 

( 1C4  ) 

FRCC 

ECP/ECO 

104 

(105) 

FR/OM 

1ST  OEST  TRANS/PKG 

105 

(106) 

FRCC 

SUST  T  COL ,  TEST  EQUIP 

106 

(107) 

FRCC 

RIP- OUT, INSTALL, INTEG 

107 

(106) 

FRCC 

OTHER 

108 

C-2 
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( 1 C9  > 

(110) 

(111) 

(112) 

CMN 

(113) 

CM  N 

(114) 

(115) 

OH/MF 

(116) 

CMN 

(117) 

cm/mc 

(118) 

CMN 

(119) 

CMN 

(120) 

(121) 

(1 22) 

CMN 

(123) 

CMN 

(124) 

(125) 

PR/OM 

(126) 

CMN 

(127) 

CMN 

(128) 

CMN 

(129) 

(120) 

CMN 

(131) 

(132  1 

OM/MC 

(133) 

CM/MP 

(134) 

CMN 

(135  ) 

CMN 

(136) 

(137) 

CM/MP 

(138) 

CM/MC 

(139) 

PR/OH 

(140) 

CMN 

(141) 

CMN 

(142) 

CMN 

(143) 

CMN 

(144) 

CMN 

(145) 

CMN 

(146) 

CMN 

(147) 

CMN 

(148) 

NFUT 

SHIPCLASS 

HOC 

EQUIPMENT 

FIRST 

RAOAR 

EQUIPMENT 

SECCNO 

RAOAR 

EQUIPMENT 

MISSILE 

SUPCLASS 

FFX 

EQUIPMENT 

FIRST 

RAOAR 

EQUIPMENT 

SECCNO 

RADAR 

EQUIPMENT 

MISSILE 

SHIPCLASS 

00-963 

ECUIPMENT 

FIRST 

RAOAR 

EQUIPMENT 

SECOND 

RAOAR 

EQUIPMENT 

MISSILE 

SHIPCLASS 

AOE 

EQUIPMENT 

FIRST 

P  AO  AR 

EQUIPMENT 

SECCNO 

RAOAR 

EQUIPMENT 

MISSILE 

SHIPCLASS 

ZIPGUN 

EQUIPMENT 

FIRST 

RAOAR 

ECUIPMENT 

SECOND 

RAOAR 

SHIPCLASS 

BOOMER 

EQUIPMENT 

FIRST 

RAOAR 

EQUIPMENT 

MISSILE 

JE  NO 


OPERATIONS  ANO  SUPPORT  PHASE  109 
OPERATIONS  113 

CONTRACTOR  Hi 

CONSUMABLES  112 

OTHER  113 

GOVERNMENT  ilH 

ORGANIZATIONAL  PERSON N£L 1 15 
ECUIPMENT  LEASEHOLO  116 

OPERATIONAL  FACILITIES  117 

CONSUMABLES  118 

OTHER  119 

LOGISTIC  SUPPORT  121 

CONTRACTOR  121 

SYSTEM  ILS  MANAGEMENT  122 

SYS  ENG,  FIELD  SERVICE  123 

SUPPLY  124 

SPARE  PARTS, REFAIR  MAT125 
TRANS  ANC  PACKAGING  126 

DATA  ANO  DOCUMENTATION  127 

OTHER  ILS  128 

GOVERNMENT  129 

SYSTEM  ILS  MANAGEMENT  133 

MAINTENANCE  131 

MAINTENANCE  FAC  I IIT IESl 32 
MAINTENANCE  PERSONNEL  123 
SUPPORT  EQUIP  FAINT  134 
SYS  ENG,  FIELC  SERVICE  135 
SUPPLY  136 

SUPPLY  PERSONNEL  127 

SUPPLY  FACILITIES  138 

SPARE  PARTS, REPAIR  MAT139 
INVENTORY  ACMIN  143 

TRANS  AND  PACKAGING  141 
DATA  AND  DOCUMENTATION  142 
OTHER  ILS  143 

CONTRACTOR  -  TRAINING  144 

GOVERNMENT  -  TRAINING  145 

CONTRACTOR  -  OTHER  146 

GOVERNMENT  -  OTHER  147 

TOTAL  148 


1  1  SCN 

2  1  SCN 

20  20  SCN 

1  1  HPN 

2  0  OFN 

20  20  WFN 

1  i  HPN 

2  1  OFN 

20  0  WFN 

1  1  SCN 

1  1  SCN 

20  10  SCN 

1  1  OFN 

5  3  WPN 

i  1  HPN 

“0  10  SCN 


1 

2 

3 

4 
4 

j 

4 

4 

4 

4 

4 

2 

3 

4 
4 

4 

5 
5 
4 
4 
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(29-27)  3.65  1.19  2.6 

129-31)  1.2  7. 

(33-35)  3.  1.  1.5 

•IIWESTHCNT  PHASE 

•PILOT  /  LIMITED  PRODUCTION 

•NONRECURRING  -  CONTRACTOR 

(41)  10. 

(43-47)  2.  10.  2*  1.  5. 

•NONRECURRING  -  GOVERNMENT 

190-95)  10.  1.  3.  1.  4.  2. 

•RECURRING  -  CONTRACTOR 

(99-62)  1.  .1  3.2  .1 

•RECURRING  -  GOVERNMENT 

(65-60  1.  .1  .0  .1 

•PULL  PRODUCTION 
•NONRECURRING  -  CONTRACTOR 

(72-761  5.6  12.3  2.5  1.  1. 

(70-00  4.2  3.3  4  • 

•NONRECURRING  -  GOVERNMENT 

(12-05)  2.4  .06  1.  1. 

(07-09)  1.5  1.2  2. 

•RECURRING  -  CONTRACTOR 

(94-99)  1.  2.  2.4  1.  6  5.2  1. 

•RECURRING  -  GOVERNMENT 

(103-100)  1.  2.  1.05  .7  20,0  1. 

•OPERATIONS  AND  SUPPORT  PHASE 
•OPERATIONS  -  CONTRACTOR 
(113)  5. 

•OPERATIONS  -  GOVERNMENT 
(116-117)  10.  3. 

(119)  10. 

♦LOGISTIC  SUPPORT  -  CONTRACTOR 

(122-123)  1.5  1.3 

(129-120)  10.  1.  1.4  1. 

•LOGISTIC  SUPPORT  -  GOVERNMENT 

(130)  4. 

(132-135)  7.2  6.  1.  3.2 

(137-142  )  3.  3  .  6  1  0  .  2.  3  1.  1.5 

(143-147)  1.  4.6  1.5  1.5 

NPUT 

CER 


C  60 

10 

00 

•050000 

11.200000 

1.000000 

5.00  00  JO 

0.000000 

0. (00400 

C  140 

10 

00 

•050000 

11.200000 

1.000090 

12.000000 

O.OOOIflfl 

0.I0SIM 

G  230 

10 

00 

•  025000 

10.000000 

1.000000 

40.40  0000 

0.000000 

0.000000 

C  240 

12 

00 

•050000 

40.000000 

1.  000000 

1. 00  C  0  CO 

0.000000 

0.000000 

C  310 

10 

00 

•  0  25  000 

10.000000 

1. 000000 

20. CO  C  Q 00 

0.000000 

o.cooocs 

C  320 

12 

00 

.050000 

20. 000021 

1.000000 

1.Q0QQ0Q 

O.OQQOOO 

o. cooooo 

C  400 

12 

00 

100.000000 

•050000 

1.000000 

1. cooooo 

0.000000 

0. cooooo 

C  420 

12 

00 

1.5Q0000 

2.000000 

to,  OOOJOO 

1. uO  0000 

0.000000 

0. 000000 

C  440 

12 

04 

50.0(0000 

•Q50QQQ 

1.000000 

1.000000 

0.000010 

0.000000 

C  461 

1 

00 

1.400000 

.046000 

0. 000000 

0.000000 

0.000000 

0.000000 

C  640 

1 

00 

•  6  COOOO 

•  540000 

0.000000 

0.000000 

0.000000 

0. cooooo 

c  no 

10 

00 

.  009000 

.934000 

1.140000 

2.100000 

•440000 

0.000000 

C  660 

10 

00 

.004  200 

•934000 

1.140000 

2.  10  0  000 

•440000 

0. cooooo 

C  420 

4 

00 

1.400000 

150.000000 

•  040000 

0.  00  0 0 CO 

0.000000 

0. cooooo 

C  430 

0 

920 

•050000 

0.000000 

0.000000 

0. cooooo 

0.000000 

0.000000 

C1010 

4 

00 

•  6  (0000 

150.000000 

•040000 

0.000100 

0.100010 

0.000000 

C102D 

6 

1110 

•054000 

0.000000 

0.000000 

0.000000 

0.000000 

0.000000 

C112Q 

e 

920 

•  120000 

0.000000 

0.000000 

0.00(000 

0.000001 

o. cooooo 

CUSO 

12 

00 

10.0  (0000 

1.000000 

•030000 

150.404000 

0.000000 

0.000000 

C1100 

0 

1010 

•120000 

0.000000 

0.000000 

0. 000000 

0.000000 

0. cooooo 

ECER 


04 


cCUIPMfNT  SECOND  RAOAR 
TFUT 

*f OTIC  PHASE 

•VALIDATION  -  contractor 


14-5  ) 

•  8 

16. 

(7-10) 

8  • 

2.72 

1.  2  .6 

•VALIDATION 

-  GOVERNMENT 

(12-13) 

3.2 

16. 

(15-18) 

8.  6 

•  8 

.8  .6 

•PULL  SCALE 

DEVELOPMENT  -  CONTRACTOR 

121-22) 

3.  04 

12.4 

(25-27) 

2*  Si 

i.  ca 

2.  06 

(29-30) 

•9  t 

5.6 

<33-  35) 

2.  <• 

.8 

1.2 

•INVESTMENT 

phase 

•PILOT  /  LIMITED  PRODUCTION 

•NONRECURRING  -  CONTRACTOR 

(41) 

0. 

(43-  *7) 

1.  f 

8. 

1.6  .6 

•NONRECURRING  -  GOVERNMENT 

(50-55) 

8. 

.  8 

2.4  .8 

•RECURRING 

-  CONTRACTOR 

(59-62) 

.8 

.(id 

2.56  .38 

•RECURRING 

-  GOVERNMENT 

(65-68) 

•  8 

•  08 

•64  .06 

•FULL  FROOUCT ICN 

•NONRECURRING  -  CONTRACTOR 

(72-76) 

4*48 

9.84 

2.  .8 

(78-80 

3.  36 

2.64 

3.  2 

•NONRECURRING  -  GOVERNMENT 

(82-85) 

1.52 

•  69 

.6  .6 

<87-891 

1.2 

•  96 

1.6 

•RECURRING 

-  CONTRACTOR 

(94-E9) 

«8 

1.6 

1.92  1.26 

•RECURRING 

-  GOVERNMENT 

(103-1*8) 

.8 

1.6 

.64  .56 

•OPE  RATIONS 

ANO  SUPPORT  PHASE 

•OPERATIONS 

-  CONTRACT  CR 

(113) 

R. 

•OPERATIONS 

-  government 

(116-117) 

8* 

2.4 

(119) 

•  8 

•LOGISTIC  SUPPORT  -  CONTRACTOR 

(122-123) 

1.  2 

1.04 

(125-128) 

8. 

•  8 

1.12  .6 

•LOGISTIC  SUPPORT  -  GOVERNMENT 

(130) 

3.2 

(132-135) 

5.76 

4.8 

.8  2.56 

( 137-142* 

2.4 

2.68 

6.  1.64 

(143-147) 

.8 

3.68  1.2 

NPUT 

CEP 

C  63 

18  00 

350000 

3. 0  0  00  00 

C  143 

18  CO 

05*404 

11.204000 

C  230 

18  00 

0  <5 uOG 

13.OOCCO0 

C  240 

1?  0  0 

040(100 

4 J. 003000 

C  313 

18  CO 

025000 

1 0. JO  l JoC 

C  320 

12  00 

0  40006 

2 'J. <13*000 

C  400 

12  00  60 

0  00000 

•  35  000  0 

C  420 

12  00  1 

5  CO 000 

1. CQCQQO 

C  490 

12  CO  40 

ccoooo 

. 35 C COO 

C  58  0 

1  10  1 

120034 

•846030 

C  640 

1  30 

4  63  40  0 

•646000 

c  m 

10  30 

0C98  0Q 

•747000 

C  860 

10  30 

OC4200 

•747000 

C  920 

4  00  1 

120000 

15  J *100300 

C  930 

8  923 

050000 

0.00*040 

C1010 

4  00 

463000 

15  0.  00  C0Q0 

CIO  20 

8  1010 

054300 

0.304000 

C1129 

8  928 

1 <4000 

3.000000 

C 1150 

12  00  10 

0  COuOU 

1.304000 

C 1 180 

8  1010 

1 20 403 

0.  00  0000 

EC  Eft 


4. 

3.2  1.6 


•  6 


4.16  .6 

16*64  .6 


•  8  1.2 

1.2 


0. G3GGQQ 

u.uQCQQO 

0.003000 

0.003008 

•830400 

l2.fOCCOO 

0. ccoooo 

3. COOOOO 

•  6  3  OC  0  Q 

40.  -C  0030 

o.oooooc 

0.0000)0 

1. 000Q00 

1. 40  0  0  0  0 

0. 003000 

a. oooooo 

.600003 

21.  CCtCLO 

o.ooococ 

0. ccoooo 

1.000000 

l.savoco 

G.0Q09QC 

3.000000 

1.000003 

1. cococo 

c.cooooc 

0. COOOOO 

10.  OOfl  jO  4 

1. *00300 

0*  039 00 Q 

O.OCOOOO 

1. 030000 

1. CO  ooco 

0.003000 

a.  (Ouioi 

C.OOOOOO 

4. CO  0  0  uO 

c. oooooo 

0.000000 

0. 030JOC 

o. cO  00)0 

o« oooooo 

Q. GO  000  0 

1. 149000 

2. 100000 

•440000 

o.  toooao 

1. 140000 

2.1QUC0 

•  44000  C 

O.OCOOOO 

.8*6000 

.. CCOOOO 

o. oooooo 

0. COOOOO 

).  oo  a  300 

0.  tlOGOCO 

c.cooooc 

0.000000 

•846000 

0.  COOOOO 

c. oooooo 

0. COOOOO 

o. oooooo 

o. cococo 

0.000000 

0.000000 

0. 030000 

0. CO  c  000 

Q.OCQQQC 

o.cooooo 

. 030303 

15  <i .  rococo 
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EQUIPMENT  MISSILE 
TFUT 

•ROTLE  PHASE 

•VALIDATION  -  CONTRACTOR 

(4-5)  1.  4. 

17-101  2.  .66  .3  1.5 

•VALIDATION  -  GOVERNNE M 
(12-13)  .8  4. 

(15-18)  2.2  .2  .2  .2 

•FULL  SCALE  DEVELOPMENT  -  CONTRACTOR 

(21-22)  .76  3.1 

(25-27)  .73  .2?  .56 

(29-30)  .24  1.4 

(33-35)  .6  .2  .3 

•INVESTMENT  PHASE 

•paoT  ✓  lihiteo  production 

•NONRECURRING  -  CONTRACTOR 

(41)  2. 

(43-47)  .4  2.  ,4  .2  1. 

•NONRECURRING  -  GOVERNMENT 

(50-55)  2.  .2  .6  .2  .8  .4 

•RECURRING  -  CONTRACTOR 

(59-62)  .2  .02  .64  .02 

•RECURRING  -  GOVERNMENT 

(65-68)  .2  .02  .16  .02 

•FULL  PRODUCTION 
•NONRECURRING  -  CONTRACTOR 

(72-76)  1.12  2.46  .5  .2  .2 

(78-80)  .84  .66  .8 

•NONRECURRING  -  GOVERNMENT 

(82-15)  .42  .17  .2  .2 

(87-691  .3  .24  .4 

•RECURRING  -  CONTRACTOR 


(94-99) 
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•  4 

11.  7.3 

1.34 
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•RECURRING 

-  GOVERNMENT 
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•  2 

•  4 

4.7  3.1 

4.16 

•  2 

•OPERATIONS 
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SUPPORT 

PHASE 

•OPERATIONS 

-  CONTRACTOR 

(113) 

1. 

•OPERATIONS 

-  GOVERNMENT 

(116-1171 

2. 

1.5 

(119  ) 

2. 

•LOCI  STIC  SUPPORT  -  CONTRACTOR 

(122-123) 

.3 

.26 

(125-128) 

2. 

•  2 

.28  .2 

•LOGISTIC  SUPPORT  -  GOVERNMENT 

<t3Q) 

.8 

(132-135) 

1.  44 

1.2 

•  2  .64 
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•  6 
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•  2 
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SEND 

•CHART  CONTROL 
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*  SHIP 

INSTALLATION  SCHEDULE  -  BASED 

ON  18 

SHIPS  ANO  6  YEARS 
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11  CBS 
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INCLUOEO  IN  FLYAWAY  COSTS 
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73  74 

77 

80 

92 

94 

95 

96  97  99 

FOOTNOTE  i 
FOOTNOTE  2 
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APPRO 

CODE 

COST  ELEMENT 

36 

INVESTMENT  PHASE 

36 

37 

FILCT/LIMITEO  FROOUC  TICK 

37 

36 

NGNREC  URRING 

36 

39 

CONTRACTOR 

39 

4  C 

PR/ CM 

SYSTEM/PROGRAM  MGT 

40 

41 

PROC 

AO V  PRODUCTION  ENG 

41 

42 

PR/CM 

SYSTEM  T4E 

42 

43 

PROC 

LOGISTIC  SUPPORT 

43 

44 

PR/  PC 

TOOLING  ANC  INC  FAC 

44 

45 

PR/OM 

DATA 

45 

46 

PR/ OP 

INITIAL  TRAINING 

46 

47 

PROC 

OTHER 

47 

46 

GOVERNMENT 

48 

49 

PR/CM 

SYSTEM/PROGRAM  MGT 

49 

50 

PR/  CP 

SYSTEM  TS.E 

50 

51 

PROC 

LOGISTIC  SUPPORT 

51 

52 

PR/ PC 

TOOLING  AND  IND  FAC 

52 

53 

PR/OM 

DATA 

53 

54 

PR/OP 

INITIAL  TRAINING 

54 

55 

PROC 

OTHER 

55 

56 

RECURRING 

56 

57 

CONTRACTOR 

57 

58 

PROC 

MISSION  HARDWARE  PROD 

58 

59 

PROC 

ECP/ECO 

59 

60 

PR/CM 

1ST  OEST  TRANS/PKG 

60 

61 

PROC 

RIP-OUT, INSTALL, INTEG 

61 

62 

FROC 

OTHtR 

62 

63 

GOVE  RNMENT 

63 

64 

PROC 

MISSION  HAROWAfE  PROC 

64 

65 

FROC 

ECP/ECO 

65 

66 

PR/CM 

1ST  OEST  TRANS/PKG 

66 

67 

PROC 

RIF-OUT, INSTALL, INTEG 

67 

66 

PROC 

OTHER 

66 

RCLLUP 
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AFFRO 

CODE 

COST  ELEMENT 

69 

FULL  PRODUCTION 

69 

70 

NONRECURRING 

70 

71 

CONTRACTOR 

71 

72 

PR/OM 

SYSTEM/PRCGRAM  MGT 

72 

73 

PROC 

PRODUCTION  ENGINEERING73 

74 

PR/  CP 

SYSTEM  TIE 

74 

75 

PROC 

LOGISTICS  SUPPORT 

75 

76 

Pfi/HC 

OPERATIONAL  SITE  ACT 

76 

77 

PR/NC 

TOOLING  AND  INO  FAC 

77 

78 

PR/  CP 

DATA 

76 

79 

PR/OM 

INITIAL  TRAINING 

79 

80 

PROC 

OTHER 

8C 

81 

GOVERNMENT 

81 

82 

PR/  CP 

SYSTEM/PRCGRAM  MGT 

82 

83 

PR/CM 

SYSTEM  TLE 

83 

8<* 

PROC 

LOGISTICS  SUPPORT 

84 

85 

PR/  PC 

OPERATIONAL  SITE  ACT 

85 

86 

PR/MC 

TOOLING  AND  IND  FAC 

86 

87 

PR/CM 

OATA 

87 

88 

PR/ CP 

INITIAL  TRAINING 

68 

89 

PROC 

OTHER  . 

89 

90 

RECURRING 

90 

91 

CONTRACTOR 

91 

92 

PROC 

MISSION  HARDWARE  PROD 

92 

93 

PR/ CP 

INITIAL  STARES 

93 

94 

PROC 

SUSTAINING  ENGINEERING94 

95 

PROC 

LCP/ECO 

95 

96 

PR/CP 

1ST  OEST  TRANS/PKG 

96 

97 

PROC 

SUST  TOOL,  TEST  ECUIF 

97 

98 

PROC 

RIP-OUT, INSTALL, INTEG 

98 

99 

PROC 

OTHER 

99 

10  0 

GOVERNMENT 

10  0 

101 

PROC 

MISSION  HARDWARE  PFOC 

101 

10  2 

PR/ CM 

INITIAL  SPARES 

102 

10  3 

PROC 

SUSTAINING  ENGINEERINGS 

104 

PROC 

ECP/ECO 

104 

IP  5 

PR/OM 

1ST  OEST  TRANS/PKG 

105 

1C  6 

PROC 

SUST  TOOL,  TEST  EQUIP 

106 

10  7 

PROC 

RIF-OUT, INSTALL, INTEG 

107 

108 

PROC 

OTHER 

106 

RCLLUP 


C-10 


vnMi\jivjivnMivnvJi^\nvjivn\jivnvn»j\vnj?<j4'jn'JivTivJi\nvn^M>jrvnvnvnvnvnvji\j»\j>\j>jcfcCMro 


AFFRO 

COO  E 

COST  ELEMENT 

RCLLUP 

109 

OPERATIONS  ANO  SUPPORT  PHASE 

1G  9 

1 

110 

OPERATIONS 

110 

2 

111 

CONTRACTOR 

111 

3 

112 

OMN 

CONSUMABLES 

112 

4 

113 

OMN 

OTHER 

113 

4 

114 

government 

114 

3 

115 

OM/MF 

ORGANIZATIONAL  PERSONNEL  115 

4 

116 

OMN 

EQUIPMENT  LEASEHOLD 

116 

4 

117 

OM/MC 

OPERATIONAL  FACILITIES 

117 

4 

115 

OMN 

CONSUMABLES 

116 

4 

119 

OMN 

OTHER 

119 

4 

12) 

LOGISTIC  SUPPORT 

12C 

2 

121 

CONTRACTOR 

121 

3 

122 

OMN 

SYSTEM  ILS  MANAGEMENT 

122 

4 

123 

OMN 

SYS  ENG,  FIELD  SERVICE 

123 

4 

124 

SUPPLY 

124 

4 

125 

PR/OM 

SPARt  PARTS, RE  FAIR  MAT125 

5 

126 

OMN 

TRANS  AND  PACKAGING 

126 

5 

127 

OMN 

OATA  AND  DOCUMENTATION 

127 

4 

126 

OMN 

OTHER  ILS 

126 

4 

129 

GOVERNMENT 

129 

3 

133 

OMN 

SYSTEM  ILS  MANAGEMENT 

130 

4 

131 

MAINTENANCE 

131 

4 

132 

OM/MC 

MAINTENANCE  FACILITIES132 

5 

133 

OM/MF 

MAINTENANCE  PERSONNEL 

133 

5 

134 

OMN 

SUPPORT  EGUIP  MAINT 

134 

5 

135 

OMN 

SYS  ENG,  FIELD  SERVICE 

135 

4 

136 

SUPPLY 

136 

4 

137 

OM/MF 

SUPPLY  PERSONNEL 

137 

5 

136 

OM/MC 

SUPPLY  FACILITIES 

138 

5 

139 

PR/ CM 

SPARE  PARTS, REFAIR  MAT139 

5 

143 

OMN 

INVENTORY  ADMIN 

140 

5 

141 

OMN 

TRANS  AND  PACKAGING 

141 

5 

142 

OMN 

OATA  AND  DOCUMENTATION 

142 

4 

143 

OMN 

OTHER  ILS 

143 

4 

144 

OMN 

CONTRACTOR  -  TRAINING 

144 

2 

145 

OMN 

GOVERNMENT  -  TRAINING 

145 

2 

14  6 

OMN 

C  C  MR  ACT  CR  -  OTHER 

146 

2 

14  7 

OMN 

GCVEFNME NT  -  OTHER 

14  7 

2 

148 

TOTAL 

148 

1 
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